f1 <- matrix(c(60.5,59.6,61.5,40.3),2,2)
colnames(f1) <- c("State","Action")
postscript(file="fig1.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
barplot(height=f1,beside=T,xlab="Orientation",col=c(1,3),xlim=c(0,7.5),ylab="Average regret")
legend(5.5,60,legend=c("Inaction","Action"),fill=c(1,3))
dev.off()

f2 <- matrix(c(47.8,51.25,51.04,25.65),2,2)
colnames(f2) <- c("State","Action")
postscript(file="fig2.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
barplot(height=f2,beside=T,xlab="Orientation",col=c(1,3),xlim=c(0,7.5),ylab="Average regret")
legend(5.5,50,legend=c("Inaction","Action"),fill=c(1,3))
dev.off()