d1 <- read.csv("Fig3.csv",header=F)
par(mar=c(5,5,1,1))
plot(d1,axes=F,xlim=c(-2,2),ylim=c(-2000,2000),ylab="Hot hand vs.\ stock of luck",
     xlab="Hot outcome vs.\ gambler's fallacy",cex.lab=1.5,pch=20)
grid(lty=1)
abline(h=0)
abline(v=0)
text(c(-1.4,1.4,0,0),c(0,0,1650,-1900),pos=3,cex=1.4,
     labels=c("Gambler's fallacy","Hot outcome","Hot hand","Stock of luck"))
dev.copy2eps(file="fig3.eps")