# # Written by: # -- # John L. Weatherwax 2009-04-21 # # email: wax@alum.mit.edu # # Please send comments and especially bug reports to the # above email address. # #----- library(DAAG) #postscript("../../WriteUp/Graphics/Chapter1/prob_15_plot.eps", onefile=FALSE, horizontal=FALSE) par(mfrow=c(1,2)) plot( BDI ~ age, data=socsupport ) # plots a box plot of BDI as a function of age plot( BDI ~ unclass(age), data=socsupport ) # plots a box plot of BDI as a function of age par(mfrow=c(1,1)) #dev.off()