## PROMOTION FOCUS
## Upward Reflection: 201.59
## Upward Evaluation: 271.95
## Downward Reflection: -71.45
## Downward Evaluation: 18.08
## PREVENTION FOCUS
## Upward Reflection: -8.76
## Upward Evaluation: 174.76
## Downward Reflection: 118.06
## Downward Evaluation: -91.98

postscript(file="fig2.eps",family="NimbusSan",width=8,height=8,
horiz=F,pointsize=18,paper="special")
# par(font=2)
m1 <- rbind(c(201.59,-71.45,-8.76,118.06),c(271.95,18.08,174.76,-91.98))
#colnames(m1) <- c("Upward","Downward","Upward","Downward")
barplot(m1,beside=T,space=c(0,0,1,0,2,0,1,0),ylim=c(-100,300),col=c(3,4),
        ylab="Persistence change in sec.")
legend(3.2,150,legend=c("Reflection","Evaluation"),fill=c(3,4))
#mtext(c("Promotion focus","Prevention focus"),side=1,at=c(1.9,8.9))
mtext(c("Promotion focus","Prevention focus"),side=1,at=c(2.5,9.5),padj=2)
mtext(c("Upward","Downward","Upward","Downward"),side=1,at=c(1,4,8,11))
# dev.copy2eps(file="fig2.eps")
dev.off()