postscript(file="fig1.eps",width=8,height=8, horiz=F,onefile=F,pointsize=16,paper="special") c1 <- c(683,605) c2 <- c(648,594) c3 <- c(619,577) c4 <- c(520,489) c5 <- c(525,507) plot(c1,xlab=expression(bold("Distance from target")), ylab=expression(bold("Mean RT (milliseconds)")), ylim=c(475,700),xlim=c(.8,2.2),type="b",xaxt="n") axis(1,at=c(1,2),labels=c("Near","Far")) lines(c2,type="b") lines(c3,type="b") lines(c4,type="b") lines(c5,type="b") text(c(.92,2.08),c1,labels=c1) text(c(.92,2.08),c2,labels=c2) text(c(.92,2.08),c3,labels=c3) text(c(.92,2.08),c4,labels=c4) text(c(.92,2.08),c5,labels=c5) text(1.5,mean(c1)+8.6,srt=-23,labels="First quintile: Largest distance-effect slope") text(1.5,mean(c2)+7,srt=-16,labels="Second quintile") text(1.5,mean(c3)+7,srt=-12,labels="Third quintile") text(1.5,mean(c4)-7.4,srt=-9.2,labels="Fourth quintile") text(1.5,mean(c5)+8.8,srt=-5.4,labels="Fifth quintile: Smallest distance-effect slope") dev.off() postscript(file="fig2.eps",width=8,height=8, horiz=F,onefile=F,pointsize=16,paper="special") c1 <- c(0.9,2.0,2.6,3.3,4.0) c2 <- c(-1.6,-1.3,-1.1,-1.0,-0.8) c1t <- c("0.9","2.0","2.6","3.3","4.0") c2t <- c("-1.6","-1.3","-1.1","-1.0","-0.8") par(oma=c(3,0,0,0)) plot(c1,ylab=expression(bold("Predicted preference")),xlab="", ylim=c(-2,4),xlim=c(.8,5.2),type="b",xaxt="n") axis(1,at=c(1:5),padj=1,labels=c("1st quintile\nLargest\ndistance-\neffect\nslope", "2nd quintile","3rd quintile","4th quintile", "5th quintile\nSmallest\ndistance-\neffect\nslope")) mtext(side=1,line=5,text=expression(bold("Distance-effect slope quintile split"))) lines(c2,type="b") text(1:5,c1-.25,labels=c1t) text(1:5,c2+.25,labels=c2t) abline(h=0,lty=2) text(3,mean(c1)+.65,labels="$10/$15 choice") text(3,mean(c2)-.5,labels="$100/$110 choice") dev.off() postscript(file="fig3.eps",width=8,height=8, horiz=F,onefile=F,pointsize=16,paper="special") c1 <- c(19,30,36,44,53) par(oma=c(3,0,0,0)) plot(c1,ylab=expression(bold("% predicted to choose X")),xlab="", ylim=c(0,60),xlim=c(.8,5.2),type="b",xaxt="n") axis(1,at=c(1:5),padj=1,labels=c("1st quintile\nLargest\ndistance-\neffect\nslope", "2nd quintile","3rd quintile","4th quintile", "5th quintile\nSmallest\ndistance-\neffect\nslope")) mtext(side=1,line=5,text=expression(bold("Distance-effect slope quintile split"))) text(1:5,c1-3,labels=paste(c1,"%",sep="")) dev.off() postscript(file="fig4.eps",width=8,height=8, horiz=F,onefile=F,pointsize=16,paper="special") plot(4:30,log(4:30)+3,type="l",ylab="",xlim=c(0,30),ylim=c(0,7),yaxt="n", xlab=expression(bold("Symbolic numbers / Ratio of symbolic numbers"))) lines(4:30,log10(4:30)+3) lines(c(3,4),c(3,log(4)+3)) lines(c(3,4),c(3,log10(4)+3)) lines(c(0,3),c(0,3)) text(15,6.2,srt=13,labels="Person A: Smaller distance effect slope\nand logarithmic base (natural log base e)") text(15,3.6,srt=7.1,labels="Person B: Larger distance effect slope\nand logarithmic base (log base 10)") mtext(side=2,line=1,text=expression(bold("Perceived numbers"))) dev.off() system("bbox fig4.eps") system("bbox fig1.eps") system("bbox fig2.eps") system("bbox fig3.eps")