R/is.Lfd.R

In JamesRamsay5/fda: Functional Data Analysis

Defines functions is.Lfd

Documented in is.Lfd

is.Lfd <- function(Lfdobj) {
#  check whether LFDOBJ is a linear differential operator
  if (inherits(Lfdobj, "Lfd")) return(TRUE) else return(FALSE)
}