Nothing
## CHECK IF THE SEQUENCES ARE IN THE COMPRESSED FORMAT
seqfcheck <- function(seqdata) {
seqdata <- as.matrix(seqdata)
if (is.numeric(seqdata)) {
if (any(seqdata<0,na.rm=TRUE)) format <- "-X"
else format <- "X"
}
else {
if (ncol(seqdata)==1) {
if (length(grep("-",seqdata))>0) format <- "-"
else if (length(grep(":",seqdata))>0) format <- ":"
else format <- "?"
}
else {
if (length(grep("-",seqdata))>0) format <- "-X"
else format <- "X"
}
}
return(format)
}
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.