tests/limitations/test_kurtosis.R

Renv <- new.env(parent=globalenv())
set.seed(1234)
Renv$x <- rnorm(100)

FLenv <- as.FL(Renv)

test_that("kurtosis: https://fuzzyl.atlassian.net/projects/TDFL/issues/TDFL-752",{
  eval_expect_equal({
      test <- kurtosis(x)
  },Renv,FLenv, expectation="test")
})
Fuzzy-Logix/AdapteR documentation built on May 6, 2019, 5:07 p.m.