montecarlo(obj, alpha = 0.01, nr = 100)
lordif
##run lordif first
age.dif <- lordif(Anxiety[paste("R",1:29,sep="")],Anxiety$age)
##the following takes a long time
mc1 <- montecarlo(age.dif,alpha=0.05,nr=500)
Run the code above in your browser using DataLab