library(gplots)

# fig4
c1 <- c(66,69,63,78,40,70,53)
e1 <- c(3,4,4,4,3,4,8)
postscript(file="fig4.eps",width=10.8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
barplot2(height=c1,plot.ci=T,ci.u=c1+e1,ci.l=c1-e1,xaxt="n",yaxt="n",
         ylab="Prediction accuracy",ylim=c(0,100),width=c(.5,.5),space=1)
axis(1,at=(1:7)-.25,padj=.5,lty=0,labels=c("Total\n","Mouselab\n","Eye\ntracking","Consistent\ntrials",
                "Inconsistent\ntrials","Choice\ntrials","Deferral\ntrials"))
axis(2,at=c(0,25,50,75,100),labels=c("0%","25%","50%","75%","100%"))
text((1:7)-.25,10,labels=paste(c1,"%",sep=""))
text(3.15,72,labels="n.s.")
text(3.15,65.6,labels="}",cex=1.75,lwd=.1)
dev.off()
system("bbox fig4.eps")

# fig 2
c1 <- c(75,73,34, 55,55,56,57,57,56, 47,48,50,50,51)
e1 <- c(4,2,1, 3,3,3,3,3,3, 4,3,3,3,3)
postscript(file="fig2.eps",width=18,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
barplot2(height=c1,plot.ci=T,ci.u=c1+e1,ci.l=c1-e1,xaxt="n",yaxt="n",
         ylab="Prediction accuracy",ylim=c(0,100),width=c(.5),
         space=c(1,1,1,2,1,1,1,1,1,2,1,1,1,1))
axis(1,at=c(1:3,5:10-.5,11:15)-.25,padj=.7,lty=0,
     labels=c("Within\nSs\n5 cueing\ntrials","Within\nSs\nall 30\ntrials",
       "Across\nSs\nall 30\ntrials","EQW\n\n","WADD\n4\n","WADD\n2\n",
       "WADD\n1\n","WADD\n0.5\n","WADD\n0\n","TTB\n\n","TTB\nJND\n5%","TTB\nJND\n10%",
       "TTB\nJND\n20%","TTB\nJND\n40%"))
axis(2,at=c(0,25,50,75,100),labels=c("0%","25%","50%","75%","100%"))
text(c(1:3,5:10-.5,11:15)-.25,10,labels=paste(c1,"%",sep=""))
text(2.15,78.7,labels="n.s.")
text(2.15,74.4,labels="}",cex=1,lwd=.1)
text(3.8,59.8,labels="n.s.")
text(3.8,55.8,labels="{",cex=1,lwd=.1)
dev.off()
system("bbox fig2.eps")

#fig 3
c1 <- c(24,22,19,17,16,12,7,7,5,6,6,5,4,2)
c2 <- c(31,31,31,31,20,12,6,5,3,2,1,1,1,1)
postscript(file="fig3.eps",width=12,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
barplot(c1,width=.5,names.arg=paste(1:14,"\n(",c2,")",sep=""),space=1,
        ylab="Mean access in %",xlab="Attribute rank",ylim=c(0,25))
dev.off()
system("bbox fig3.eps")