# # 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. # #----- par(mfrow=c(3,4)) n = 10 for( ii in 1:4 ){ d = rnorm(n) qqnorm( d, main="" ); qqline( d, col=2 ) } n = 100 for( ii in 1:4 ){ d = rnorm(n) qqnorm( d, main="" ); qqline( d, col=2 ) } n = 1000 for( ii in 1:4 ){ d = rnorm(n) qqnorm( d, main="" ); qqline( d, col=2 ) } par(mfrow=c(1,1))