## choice satisfaction			
## 	        low mss	high mss	*2 outs removed
## smallset	5.29	4.79	
## largeset	4.87	5.35	

## wants more				
## 	        low mss	high mss	*2 outs removed	
## smallset	6.3	6.14		
## largeset	4.4	6.32		

postscript(file="fig1.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
plot(c(5.29,4.79),xaxt="n",type="b",xlab="Number of options",
     ylab="Positive choice experience",ylim=c(1,6))
points(c(4.79,5.35),lty=2,type="b")
abline(0,0)
mtext(side=1,at=c(1,2),line=1,text=c("Small","Large"))
text(c(1.8,1.8),c(5.5,4.5),labels=c("High MSS (+1 SD)","Low MSS (-1 SD)"))
dev.off()

postscript(file="fig2.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
plot(c(6.14,6.32),xaxt="n",type="b",xlab="Number of options",
     ylab="Wanted more profiles",ylim=c(1,7))
points(c(6.3,4.4),lty=2,type="b")
abline(0,0)
mtext(side=1,at=c(1,2),line=1,text=c("Small","Large"))
text(c(1.8,1.8),c(5.9,4.2),labels=c("High MSS (+1 SD)","Low MSS (-1 SD)"))
dev.off()