CpG site r cpg

num.plots <- length(ewas.summary$cpg.plots[[cpg]])
if (num.plots > 0) ewas.summary$cpg.plots[[cpg]][[1]]
if (num.plots > 1) ewas.summary$cpg.plots[[cpg]][[2]]    
if (num.plots > 2) ewas.summary$cpg.plots[[cpg]][[3]]
if (num.plots > 3) ewas.summary$cpg.plots[[cpg]][[4]]    
if (num.plots > 4) ewas.summary$cpg.plots[[cpg]][[5]]
if (num.plots > 5) ewas.summary$cpg.plots[[cpg]][[6]]    


perishky/meffil documentation built on March 20, 2024, 1:56 a.m.