tests/testsuite/test_sd.R

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