Content - 7ad4a6d0deac0544a07c978311af2c666e0fc744 - 06bb6be/is.Lfd.R

is.Lfd.R

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