library("gplots")
postscript(file="fig1.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(6.94,6.26,5.42,4.35),xlab="",ylab="",ylim=c(3.5,7.5),type="b",xaxt="n")
points(c(5.88,6.29,5.29,4.65),lty=2,type="b")
points(c(6.16,6.23,4.87,4.19),lty=3,type="b")
mtext(c('Hatsdun','Kaiwa','Dasuka','Nabusi'),side=1,at=1:4,line=1)
smartlegend(x="right",y="top",lty=1:3,
            legend=c("Conscious","Unconscious","Immediate"))
dev.off()

## 'Hatsdun','Kaiwa','Dasuka','Nabusi'
## 'C',6.94,6.26,5.42,4.35
## 'U',5.88,6.29,5.29,4.65
## 'I',6.16,6.23,4.87,4.19
## 'caption','Figure 1. Mean ratings of the four cars by group.',,,

postscript(file="fig2.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plotCI(c(6.94,4.35,5.88,4.65,6.16,4.19),uiw=c(0.62,0.67,0.93,0.73,0.65,0.73),
       err="y",ylab="Average rating",xlab="",xaxt="n")
mtext(c("H","N","H","N","H","N"),side=1,at=1:6,line=1)
mtext(c("Conscious","Unconscious","Immediate"),side=1,line=2,at=c(1.5,3.5,5.5))
text(x=c(1.5,3.5,5.5),y=c(5.75,7.25,7.25),
     labels=c("gap = -2","overlap = .508","gap = -.856"))
lines(c(2.5,2.5),c(3.25,7.75),lty=2)
lines(c(4.5,4.5),c(3.25,7.75),lty=2)
dev.off()

## ,'Comparison H/ N for C',,,,'Comparison H/ N for U',,,,'Comparison H/ N for I',
## ,'H','N',,,'H','N',,,'H','N'
## 'Mean',6.94,4.35,,,5.88,4.65,,,6.16,4.19
## 'Margin of error',0.62,0.67,,,0.93,0.73,,,0.65,0.73
## 'Caption','Figure 2. 95 % confidence intervals for the difference
## scores between Hatsdun and Nabusi for groups C, U, and I.'

postscript(file="fig3a.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plotCI(c(6.94,5.88,6.16),uiw=c(0.62,0.91,0.63),
       err="y",ylab="Average rating",xlab="",xaxt="n")
mtext(c("Conscious","Unconscious","Immediate"),side=1,line=1,at=1:3)
mtext("A",side=3,at=2,line=.75)
# arrows(c(1,1),c(6.5,7.4),c(2,3),c(6.5,6.6),code=3,lty=2)
arrows(c(1),c(6.5),c(2),c(6.5),code=3,lty=2)
arrows(c(2,2),c(7.06,7.06),c(1,3),c(6.65,6.55),lty=2)
text(x=c(2,1.5),y=c(7.15,6.6),
     labels=c("overlap = .77","overlap = .63"))
dev.off()

postscript(file="fig3b.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plotCI(c(2.59,1.24,1.93),uiw=c(0.96,1.08,1.05),
       err="y",ylab="Mean difference",xlab="",xaxt="n")
mtext(c("Conscious","Unconscious","Immediate"),side=1,line=1,at=1:3)
mtext("B",side=3,at=2,line=.75)
arrows(c(1),c(2.1),c(2),c(2.1),code=3,lty=2)
text(x=c(1.5),y=c(2.25),labels=c("overlap = .71"))
dev.off()

## 'Comparison C/ U/ I for H','C','U','I',,,'Comparison of differences
## between H/ N for C, U and I','C','U','I'
## 'Mean',6.94,5.88,6.16,,,'Mean',2.59,1.24,1.93
## 'Margin of error',0.62,0.91,0.63,,,'Margin of error',0.96,1.08,1.05
## 'Caption','Figure 3. (a)95 % confidence interval showing the mean
## comparison for Hatsdun ratings between groups; (b) % confidence
## intervals showing the comparison of mean differences between H and N
## by group.'

# effect, margin, weight 
m4 <- matrix(c(-0.471,0.476,6.743,
0.434,0.600,5.998,
0.242,0.543,6.340,
0.241,0.398,7.205,
-0.065,0.523,6.459,
0.968,0.764,5.054,
1.247,0.817,4.774,
0.883,0.690,5.469,
1.055,0.684,5.503,
1.116,0.639,5.765,
-0.064,0.594,6.033,
0.171,0.659,5.650,
-0.504,0.747,5.150,
-0.367,0.559,6.245,
0.722,0.770,5.025,
-0.483,0.666,5.604,
-0.251,0.436,6.984,
0.251,0.269,10),,3,byrow=T)

c4 <- c('This study', 'Dijksterhuis (2004), Exp 1', 'Dijksterhuis (2004), Exp 2',
        'Dijksterhuis (2004), Exp 3', 'Dijksterhuis (2004), Exp 4',
        'Dijksterhuis et al. (2006), Exp 1', 'Dijksterhuis et al. (2006), Exp 2',
        'Ham et al. (sfp), Exp 2', 'Ham et al. (sfp), Exp1',
        'Lerouge (sfp), Exp 2 configural', 'Lerouge (sfp), Exp 2, featural',
        'Newell et al. (ip), Exp 1', 'Newell et al. (ip), Exp 2',
        'Newell et al. (ip), Exp 3', 'Payne et al. (2007), Exp 1',
        'Payne et al. (2007), Exp 2', 'Phillips et al. (2007)',
        expression(bold('Overall')))

postscript(file="fig4.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
par(mar=c(0,1,12,3))
plotCI(m4[,1],uiw=m4[,2],cex=m4[,3]/3,ylab="",xlab="",xaxt="n",axes=F,
       lwd=c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2))
mtext(c4,at=1:18,las=2,side=3)
axis(4)
lines(c(0,19),c(0,0),lty=2)
dev.off()

## 'Study Name','Effect size (g)','Margin of error','Study weight',,,'Data for graph',,,
## 'This study',-0.471,0.476,6.743,,,'effect size','study number','weight','error margin'
## 'Dijksterhuis (2004), Exp 1',0.434,0.600,5.998,,,-0.471,18,6.743,0.476
## 'Dijksterhuis (2004), Exp 2',0.242,0.543,6.340,,,0.434,17,5.998,0.600
## 'Dijksterhuis (2004), Exp 3',0.241,0.398,7.205,,,0.242,16,6.340,0.543
## 'Dijksterhuis (2004), Exp 4',-0.065,0.523,6.459,,,0.241,15,7.205,0.398
## 'Dijksterhuis et al. (2006), Exp 1',0.968,0.764,5.054,,,-0.065,14,6.459,0.523
## 'Dijksterhuis et al. (2006), Exp 2',1.247,0.817,4.774,,,0.968,13,5.054,0.764
## 'Ham et al. (sfp), Exp 2',0.883,0.690,5.469,,,1.247,12,4.774,0.817
## 'Ham et al. (sfp), Exp 1',1.055,0.684,5.503,,,0.883,11,5.469,0.690
## 'Lerouge (sfp), Exp 2 configural',1.116,0.639,5.765,,,1.055,10,5.503,0.684
## 'Lerouge (sfp), Exp 2, featural',-0.064,0.594,6.033,,,1.116,9,5.765,0.639
## 'Newell et al. (ip), Exp 1',0.171,0.659,5.650,,,-0.064,8,6.033,0.594
## 'Newell et al. (ip), Exp 2',-0.504,0.747,5.150,,,0.171,7,5.650,0.659
## 'Newell et al. (ip), Exp 3',-0.367,0.559,6.245,,,-0.504,6,5.150,0.747
## 'Payne et al. (2007), Exp 1',0.722,0.770,5.025,,,-0.367,5,6.245,0.559
## 'Payne et al. (2007), Exp 2',-0.483,0.666,5.604,,,0.722,4,5.025,0.770
## 'Phillips et al. (2007)',-0.251,0.436,6.984,,,-0.483,3,5.604,0.666
## 'Overall',0.251,0.269,,,,-0.251,2,6.984,0.436
## ,,,,,,0.251,1,10.000,0.269
## 'Caption:','Figure 4. Forest plot of studies displaying effect sizes and 95 % confidence intervals. '

# added after Page: 1
# 270 rotate -576 0 translate