t1 <- read.table("data.data")
postscript(file="fig1.eps",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
plot(t1[,2],t1[,1],xlim=c(0,100),ylab="Expected-value choices (proportion)",
     xlab="Number of considerations verbalized")
abline(lm(t1[,1]~t1[,2]))
dev.off()