#load pre-computed p-values for IGM dataset
library(QQperm)
data("example.Ps")
#print output to pdf file only if not running in interactive mode
if (!interactive()) {
pdf("lambda.pdf")
}
#estimate inflation factor and generate plot.
lambda <-estlambda2(example.Ps$observed,example.Ps$perm, plot = TRUE, adjust.xy = TRUE)
if (!interactive()) {
dev.off()
}
Run the code above in your browser using DataLab