x <- read4pcadapt("geno3pops",option="example")
y <- pcadapt(x,K=3)
P <- pval(y)
ranked_snps <- order(P[,1],decreasing=FALSE)
adjpval <- p.adjust(sort(P[,1]),method="BH",n=length(P[,1]))
fdrList(ranked_snps,adjpval,1:250,thresholds=seq(0.05,0.5,length=10))
Run the code above in your browser using DataLab