## Model    Generalization set Practice set
## Sensitiviy WM (best) 0.5956 0.6439
##        WM (all vars) 0.6051 0.6135
##                   MH 0.5708 0.5842
## Hit ratio WM (best)  0.5969 0.6471
##        WM (all vars) 0.6086 0.6101
##                   MH 0.6026 0.6067

       #Gen                  Prac
c1 <- c(0.5956,0.6051,0.5708,0.6439,0.6135,0.5842, # Sens
        0.5969,0.6086,0.6026,0.6471,0.6101,0.6067) # Hit
m1 <- t(matrix(c1,6,2))
colnames(m1) <- rep(c("Weighted\n(best)","Weighted\nall","MH"),2)
rownames(m1) <- c("Sensitivity","Hit ratio")

postscript(file="fig1.eps",family="NimbusSan",width=10,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
barplot(m1,beside=T,ylab="Fit",ylim=c(.5,.65),legend.text=T,xpd=F,
        space=c(1,0,1,0,1,0,2,0,1,0,1,0))
mtext(side=1,line=2.5,at=c(1,11),adj=0,cex=1.25,
      text=c("A. Generalization set","B. Practice set"))
dev.off()