# qreference(rt(30,4))
# qreference(rt(30,4), distribution=function(x) qt(x, df=4))
# qreference(rexp(30), nrep = 4)
# toycars.lm <- lm(distance ~ angle + factor(car), data = toycars)
# qreference(residuals(toycars.lm), nrep = 9)
Run the code above in your browser using DataLab