# NOT RUN {
# qreference(rt(180,1))
# qreference(rt(180,1), distribution=function(x) qt(x, df=1))
# qreference(rexp(180), 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