# # book_ch_2_fig_1.r -- Simple Program to Make Distribution Plots # par(mfrow=c(1,2)) # x <- seq(-4,4,0.1) plot(x,dnorm(x),type="l", main="", xlab="Position of Policy Outcome",ylab="Utility", lwd=3,col="black") mtext(side=3,line=1.0,"Figure 2.1A: Normal Distribution\nUtility Function",font=2) text(0.0,0.04,"Ideal Point") arrows(0.000, 0.02,0.000,0.0,length=0.1,lwd=3) # y <- .4 - (.4/16)*x^2 plot(x,y,type="l", main="", xlab="Position of Policy Outcome",ylab="Utility", lwd=3,col="black") mtext(side=3,line=1.0,"Figure 2.1B: Quadratic Distribution\nUtility Function",font=2) text(0.0,0.04,"Ideal Point") arrows(0.000, 0.02,0.000,0.0,length=0.1,lwd=3)