## s3 plot method for class 'lordif.MC':
if (FALSE) age.dif <- lordif(Anxiety[paste("R",1:29,sep="")],Anxiety$age)
if (FALSE) age.dif.MC <- montecarlo(age.dif,alpha=.05,nr=500)
if (FALSE) plot(age.dif.MC,mfrow=c(1,1),width=8,height=7)
Run the code above in your browser using DataLab