# NOT RUN {
data(snp_input)
input_pvalues <- snp_input
#To save computing time for illustration, we use 10 percent of rows (p-values)
input_pvalues <- input_pvalues[sample(1:nrow(input_pvalues),
size <- ceiling(nrow(input_pvalues)/10)),]
nullprop <- null_estimation(input_pvalues)
# }
Run the code above in your browser using DataLab