data("Orthodont", package = "nlme")
sp1 <- fitme(distance ~ age * Sex + (1 | Subject), data = Orthodont)
gof(sp1) # classic toy example, but poor fit.
gof(sp1, testfn=ks.test, y="pnorm")
Run the code above in your browser using DataLab