#####   R-code for making Figure 2.3

	x  <- c(0.437, 0.486, 0.053, 0.024)

	postscript("fig23.ps",width=7,height=4.1,horizontal=F)

	par(mfrow=c(1,2), mar=c(4,4,1,1))

        pie(x,labels=c("Democrat","Republican", "Green", "Other"),cex=0.7)
	title(xlab="(a)")
	
	barplot(x,width=0.8,space=0.5,cex.names=0.7,ylab="relative frequency",
	        names.arg=c("Democrat","Republican", "Green", "Other"),
	        mgp=c(2,1,0),cex.axis=0.7)
	title(xlab="(b)")

	graphics.off()