R/HSC_PC_None.R

In SeqDetect: Sequence and Latent Process Detector

Defines functions HSC_PC_None classify.HSC_PC_None

Documented in HSC_PC_None

HSC_PC_None <- function() {
  structure(list(),class = c("HSC_PC_None","HSC_PC"))
}

classify.HSC_PC_None <- function(x, stream, ...) {
  if(!".clazz" %in% colnames(stream))
    stop("HSC_PC none: .clazz field not found in the input stream")
  res <- data.frame(stream,stringsAsFactors=FALSE)
  return(res)
}

Try the SeqDetect package in your browser