# # 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. # #----- #postscript("../../WriteUp/Graphics/Chapter3/prob_10_plots.eps", onefile=FALSE, horizontal=FALSE) par(mfrow=c(2,3)) for( n in c(10,100,500) ){ d = rchisq( n, 1 ) qqnorm( d, main=sprintf("chisq_n_%d", n ) ); qqline( d ) } for( n in c(10,100,500) ){ d = rt( n, 1 ) qqnorm( d, main=sprintf("t_n_%d", n ) ); qqline( d ) } par(mfrow=c(1,1)) #dev.off()