.singleBAMreads <- function(bam, se, len, n) {
w <- vector(mode = "numeric", length = 0)
for (i in seq_len(len)) {
se <- seq(i, n, len)
w <- cbind(w, bam[se])
}
return(w)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.