R/stripClass.R

In tis: Time Indexes and Time Indexed Series

Defines functions stripClass

Documented in stripClass

stripClass <- function(x, classString){
  classVec <- class(x)
  newClassVec <- classVec[classVec != classString]
  if(length(newClassVec) == 0) return(unclass(x))
  else {
    class(x) <- newClassVec
    return(x)
  }
}

Try the tis package in your browser