tests/next/test_lgamma.R

#testing special functions- lgamma
Renv <- new.env(parent = globalenv())
Renv$a <-1:10
FLenv <- as.FL(Renv)
test_that("Testing lgamma", {
      result1=eval_expect_equal({
          test1<-lgamma(a)
      },Renv,FLenv)
})
Fuzzy-Logix/AdapteR documentation built on May 6, 2019, 5:07 p.m.