#Ownership/Possession 1.79 .16
#Ownership/No Possession 1.41 .16
#No Ownership/Possession 1.65 .16
#No Ownership/No Possession 1.29 .17
library(gplots)
par(mar=c(0,0,0,0),oma=c(0,0,0,0),cex=1.25)

m1 <- matrix(c(1.79,1.41,1.65,1.29),2,2)
m2 <- matrix(c(4.61,2.46,4.08,2.74),2,2)
m3 <- matrix(c(3.82,3.31,3.86,2.70),2,2)
m4 <- matrix(c(4.08,3.59,3.93,2.76),2,2)
m5 <- matrix(c(3.72,2.57,3.36,2.39),2,2)
e1 <- matrix(c(.16,.16,.16,.17),2,2)
e2 <- matrix(c(.42,.41,.41,.42),2,2)
e3 <- matrix(c(.36,.39,.36,.38),2,2)
e4 <- matrix(c(.40,.42,.40,.42),2,2)
e5 <- matrix(c(.33,.34,.33,.34),2,2)

colnames(m1) <- colnames(m2) <- colnames(m3) <- colnames(m4) <-
  colnames(m5) <- c("Ownership","No Ownership")

postscript(file="fig1.eps",family="NimbusSan",width=8,height=6,
horiz=F,pointsize=18,paper="special",onefile=F)
barplot2(m1,beside=T,plot.ci=T,ci.l=m1-e1,ci.u=m1+e1,col=c("gray50","white"),
         ylab="Monetary valuation",
         ylim=c(0,(m1+e1)[1,1]+.5),xlim=c(.75,6.5))
text(c(1.7,2.9),(m1+e1)[,1]+.2,labels=c("Possession","No Possession"))
text(c(4.7,5.9),(m1+e1)[,2]+.2,labels=c("Possession","No Possession"))
dev.off()

postscript(file="fig2.eps",family="NimbusSan",width=8,height=6,
horiz=F,pointsize=18,paper="special",onefile=F)
barplot2(m2-1,beside=T,plot.ci=T,ci.l=m2-e2,ci.u=m2+e2,col=c("gray50","white"),
         ylab="Feelings of ownership",ylim=c(1,7),offset=1,
         xlim=c(.75,6.5))
text(c(1.7,2.9),(m2+e2)[,1]+.3,labels=c("Possession","No Possession"))
text(c(4.7,5.9),(m2+e2)[,2]+.3,labels=c("Possession","No Possession"))
dev.off()

postscript(file="fig3.eps",family="NimbusSan",width=8,height=6,
horiz=F,pointsize=18,paper="special",onefile=F)
barplot2(m3,beside=T,plot.ci=T,ci.l=m3-e3,ci.u=m3+e3,col=c("gray50","white"),
         ylab="Monetary valuation (choice values)",
         ylim=c(0,(m3+e3)[1,1]+.5),xlim=c(.75,6.5))
text(c(1.7,2.9),(m3+e3)[,1]+.3,labels=c("Possession","No Possession"))
text(c(4.7,5.9),(m3+e3)[,2]+.3,labels=c("Possession","No Possession"))
dev.off()

postscript(file="fig4.eps",family="NimbusSan",width=8,height=6,
horiz=F,pointsize=18,paper="special",onefile=F)
barplot2(m4,beside=T,plot.ci=T,ci.l=m4-e4,ci.u=m4+e4,col=c("gray50","white"),
         ylab="Monetary valuation (WTA/WTP)",
         ylim=c(0,(m4+e4)[1,1]+.5),
         xlim=c(.75,6.5))
text(c(1.7,2.9),(m4+e4)[,1]+.3,labels=c("Possession","No Possession"))
text(c(4.7,5.9),(m4+e4)[,2]+.3,labels=c("Possession","No Possession"))
dev.off()

postscript(file="fig5.eps",family="NimbusSan",width=8,height=6,
horiz=F,pointsize=18,paper="special",onefile=F)
barplot2(m5-1,beside=T,plot.ci=T,ci.l=m5-e5,ci.u=m5+e5,col=c("gray50","white"),
         ylab="Feelings of ownership", ylim=c(1,7),offset=1,
         xlim=c(.75,6.5))
text(c(1.7,2.9),(m5+e5)[,1]+.3,labels=c("Possession","No Possession"))
text(c(4.7,5.9),(m5+e5)[,2]+.3,labels=c("Possession","No Possession"))
dev.off()