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]]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.