library(QQperm)
data("example.Ps")
#print output to pdf file only if not running in interactive mode
if (!interactive()) {
pdf("qqplot.pdf")
}
qqplot(example.Ps$perm, example.Ps$observed)
if (!interactive()) {
dev.off()
}
Run the code above in your browser using DataLab