tests/limitations/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)
Renv$b<-mean(Renv$a)
FLenv <- as.FL(Renv)

## Trim not supported currently.
test_that("Testing mean https://app.asana.com/0/143316600934101/146270267894104",
    {
      result2=eval_expect_equal({test2<-c(b, mean(a, trim = 0.10))}
                               ,Renv,FLenv)
      ##print(result2)
    }
)