powered by
qvaluebh95(p, fdrate=0.1)
require(GenABEL.data) data(srdta) a<-qtscore(qt2,data=srdta) qv <- qvaluebh95(a[,"P1df"]) plot(a[,"Position"],-log10(qv$qvalue))
Run the code above in your browser using DataLab