Nothing
slidingWindow <-
function(DNAbin, width, interval = 1){
annote <- function(x){
width <- width - 1
y <- align[ , x:(x+width)]
attr(y, "window") <- c(x, x+width)
y
}
if(interval == "codons") interval <- 3
align <- as.matrix(DNAbin)
len <- dim(align)[[2]]
iter <- seq(1, len-width, by = interval)
li <- lapply(iter, function(x) annote(x))
li
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.