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=as.expression(substitute(bold(italic(chi[nu])~~"Q-Q Plot"),
list(nu=df))))
## in log-log scale
qqplot2(x, qF=function(p) qchisq(p, df=df), log="xy",
main=as.expression(substitute(bold(italic(chi[nu])~~"Q-Q Plot"),
list(nu=df))))
## Q-Q plot against wrong quantiles (of an Exp(1) distribution)
qqplot2(x, qF=qexp,
main=expression(bold(Exp(1)~~"Q-Q Plot")))
Run the code above in your browser using DataLab