n <- 250
df <- 7
set.seed(1)
x <- rchisq(n, df=df)
## Q-Q plot against the true quantiles (of a chi^2_3 distribution)
qqplot2(x, qF=function(p) qchisq(p, df=df),
main.args=list(text=as.expression(substitute(bold(italic(chi[nu])~~"Q-Q Plot"),
list(nu=df))), side=3, cex=1.3, line=1.1, xpd=NA))
## Q-Q plot against wrong quantiles (of an Exp(1) distribution)
qqplot2(x, qF=qexp,
main.args=list(text=expression(bold(Exp(1)~~"Q-Q Plot")),
side=3, cex=1.3, line=1.1, xpd=NA))
Run the code above in your browser using DataLab