Nothing
logoContext <- function(cds, ...) {
baseTab <- apply(
do.call("rbind", lapply(strsplit(cds$context, ""), function(x) c(rep(NA, 7 -length(x)), x)))
, 2, function(x) table(factor(x, levels = c("A", "C", "G", "T"))))
p <- makePWM(t(t(baseTab) / colSums(baseTab)))
seqLogo(p, ...)
invisible(baseTab)
}
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.