list.batch <- function(saminfo) {
tmp1 <- as.factor(saminfo[, which(colnames(saminfo) ==
"Batch")])
batches <- NULL
for (i in 1:nlevels(tmp1)) {
batches <- append(batches, list((1:length(tmp1))[tmp1 ==
levels(tmp1)[i]]))
}
batches
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.