R/is.fdSmooth.R

In JamesRamsay5/fda: Functional Data Analysis

Defines functions is.fdSmooth

Documented in is.fdSmooth

is.fdSmooth <- function(fdSmoothobj) {
#  check whether FDPAROBJ is a functional data object

#  Last modified 20 November 2005

  if (inherits(fdSmoothobj, "fdSmooth")) return(TRUE) else return(FALSE)
}