R/seqxtract_modgap.R

In ECLOH/RSATRAJ:

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)
  
}