#Figure 1:  -1.63/-0.94/0.8/0.49
#Figure 2:  -2.02/-1.85/0.1/-0.04
#Figure 3:  -0.48/0.76/2.56/2.34

All <- matrix(c(-1.63,-.94,.8,.49),2,2)
Low <- matrix(c(-2.02,-1.85,.1,-.04),2,2)
High <- matrix(c(-.48,.76,2.56,2.34),2,2)
dimnames(All) <- dimnames(Low) <- dimnames(High) <-
  list(Gamblers=c("Social gamblers","Problem gamblers"),
       Feedback=c("Safe feedback","Risky feedback"))

postscript(file="figall.eps",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
barplot(All,beside=T,main="All Gambles")
legend(x=3.5,y=-1,legend=c("Social gamblers","Problem gamblers"),
       fill=c("gray40","gray80"))
dev.off()

postscript(file="figlow.eps",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
barplot(Low,beside=T,main="Low-variance Gambles")
legend(x=3.5,y=-1,legend=c("Social gamblers","Problem gamblers"),
       fill=c("gray40","gray80"))
dev.off()

postscript(file="fighigh.eps",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
barplot(High,beside=T,main="High-variance Gambles")
legend(x=1,y=2,legend=c("Social gamblers","Problem gamblers"),
       fill=c("gray40","gray80"))
dev.off()