## figure 1

## Chosen alternative dotted line (session, advantage): (1.0, 0.0) (2.0, 9.23)
## (3.0, 13.43)
## Non-chosen alternative solid line(session, advantage): (1.0, 0.0) (2.0, 5.94)
## (3.0, 7.79)

## fig 2

## Chosen alternative dotted line (session, advantage): (1.0, 0.0) (2.0, 6.05)
## Non-chosen alternative (session, advantage): (1.0, 0.0) (2.0, 11.48)

postscript(file="fig1.eps",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
plot(c(0,9.23,13.43),xlab="Session",ylab="Advantage",lty=2,type="b",xaxt="n")
lines(c(0,5.94,7.79),type="b")
mtext(at=c(1:3),side=1,text=c(1:3),padj=1)
text(c(1.5,2.4),c(9,5),labels=c("Chosen alternative","Non-chosen alternative"))
dev.off()

postscript(file="fig2.eps",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
plot(c(0,11.48),xlab="Session",ylab="Advantage",type="b",xaxt="n")
lines(c(0,6.05),type="b",lty=2)
mtext(at=c(1:2),side=1,text=c(1:2),padj=1)
text(c(1.25,1.75),c(6.25,3),labels=c("Non-chosen alternative","Chosen alternative"))
dev.off()