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)
}
drtagkim/mcgillfdar documentation built on May 12, 2019, 6:20 p.m.