tests/testsuite/test_mean.R

In Fuzzy-Logix/AdapteR: Converts R syntax to SQL to provide fast analytics using in-database C++ library DB Lytix.

## Testing arithemetic mean
Renv <- new.env(parent = globalenv())
Renv$a <-c(0:10, 50)
FLenv <- as.FL(Renv)

test_that("mean", {
    result1=eval_expect_equal({
        test1<-mean(a)
        test2 <- mean(a,trim=0.1)
        ##test3 <- mean(a,trim=0.6)
    },Renv,FLenv)
})