X <- 1:100
Y <- c(1,2,4,6,8)
Z <- 0:49

postscript(file="fig2.eps",family="NimbusSan",width=8,height=6, horiz=F,pointsize=18,paper="special")
plot(Y,Y,t="l",cex=0,pch=19,ann=F,xaxt="n",yaxt="n",lwd=2.5)
text(Y,Y,labels="o",cex=1.5)
mtext(c(1,2,4,6,"N"),at=Y,side=1,line=1,cex=1.25)
mtext("Number of lives",side=1,line=2,cex=1.25)
mtext("Value of life saving",side=2,line=1,cex=1.25)
mtext("//",at=7,side=1,padj=-.5,line=0,cex=1.25)
dev.off()

postscript(file="fig3.eps",family="NimbusSan",width=8,height=8, horiz=F,pointsize=18,paper="special")
plot(c(0,(0:40)+60),c(0,60+.00005*(0:40)^4+0:40),t="l",cex=0,ann=F,xaxt="n",
     yaxt="n",lwd=2.5)
mtext(c(1,2,"N"),at=c(12.5,25,95),side=1,line=1,cex=1.25)
mtext("Number of lives",side=1,line=2,cex=1.25)
mtext("Value of life saving",side=2,line=1,cex=1.25)
mtext("//",at=80,side=1,padj=-.5,line=0,cex=1.25)
dev.off()

postscript(file="fig4.eps",family="NimbusSan",width=8,height=6, horiz=F,pointsize=18,paper="special")
plot(X,X^(.2),t="l",cex=0,ann=F,xaxt="n",yaxt="n",lwd=2.5)
mtext(c(1,2,"N"),at=c(12.5,25,95),side=1,line=1,cex=1.25)
mtext("Number of lives",side=1,line=2,cex=1.25)
mtext("Value of life saving",side=2,line=1,cex=1.25)
mtext("//",at=80,side=1,padj=-.5,line=0,cex=1.25)
dev.off()

postscript(file="fig5.eps",family="NimbusSan",width=8,height=6, horiz=F,pointsize=18,paper="special")
barplot(height=c(10.4,13.6,12.9,11.7,10.9),space=1.25,
        names.arg=c("150","98%","85%","90%","85%"),
        cex.axis=1.25,cex.names=1.25)
mtext("Number and percent of 150 lives saved",side=1,line=2.5,cex=1.25)
mtext("Mean support (out of 20)",side=2,line=2.5,cex=1.25)
dev.off()

postscript(file="fig8.eps",family="NimbusSan",width=8,height=6,
horiz=F,pointsize=18,paper="special")
barplot(height=c(2.38,1.14,1.43),yaxt="n",cex.axis=1.25,space=1.25)
mtext(c("Identifiable\nlife","Statistical\nlife","Identifiable\nwith statistics"),
      side=1,at=c(1.8,4,6.2),line=1.5,cex=1.25)      
mtext("Donations in dollars",side=2,line=2.5,cex=1.25)
axis(c("$0","$1.00","$2.00"),at=c(0,1,2),side=2,cex=1.25)
dev.off()

postscript(file="fig9.eps",family="NimbusSan",width=8,height=6,
horiz=F,pointsize=18,paper="special")
barplot(height=c(10.7,5),xlim=c(.5,5),names.arg=c(1,8),cex.axis=1.25,space=1.25)
mtext("Number of victims",side=1,line=2.5,cex=1.25)
mtext("Contributions",side=2,line=2.5,cex=1.25)
dev.off()

postscript(file="fig10a.eps",family="NimbusSan",width=8,height=6,
horiz=F,pointsize=18,paper="special")
barplot(height=c(3.57,3.54,3),main="Feelings",cex.axis=1.25,space=1.25)
mtext(c("Rokia","Moussa","Rokia &\nMoussa"),side=1,at=c(1.8,4,6.2),
      line=c(1,1,2),cex=1.25)
dev.off()

postscript(file="fig10b.eps",family="NimbusSan",width=8,height=6,
horiz=F,pointsize=18,paper="special")
barplot(height=c(25.2,25.3,21.5),main="Donations",cex.axis=1.25,space=1.25)
mtext(c("Rokia","Moussa","Rokia &\nMoussa"),side=1,at=c(1.8,4,6.2),
      line=c(1,1,2),cex=1.25)
dev.off()

postscript(file="fig11.eps",family="NimbusSan",width=8,height=6, horiz=F,pointsize=18,paper="special")
plot(dnorm((X-1)/30),t="l",ann=F,xaxt="n",yaxt="n",lwd=2.5)
mtext("Number of lives",side=1,line=2,cex=1.25)
mtext("Value of life saving",side=2,line=1,cex=1.25)
mtext("//",at=80,side=1,padj=-.5,line=0,cex=1.25)
dev.off()