seqxtract.modgap<-function(data, var, data.frame=FALSE) {
## Extracting the sequences from the data set
if (missing(var) || is.null(var) || is.na(var))
seqdata <- data
else
seqdata <- subset(data,,var)
if (data.frame==FALSE)
seqdata <- as.matrix(seqdata)
return(seqdata)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.