repPrep <- function(repeats) {
sapply(repeats, indexFa)
merged <- do.call(c, lapply(humanRepeats, scanFaIndex))
names(merged) <- make.unique(as.character(seqnames(merged)))
return(merged)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.