# NOT RUN {
# vector of test statistics for assocaited features
stat.assoc<- rchisq(n=1000,df=1, ncp = 3)
# vector of test statistics for unassocaited features
stat.unassoc<- rchisq(n=9000,df=1, ncp = 0)
# vector of test statistics
stat<- c(stat.assoc,stat.unassoc)
output <- LFDR.MM(x=stat)
# Estimated pi0
output$p0.hat
# Estimated non-centrality parameter
output$ncp.hat
# Estimated LFDRs
output$lfdr.hat
# }
Run the code above in your browser using DataLab