tests/testsuite/test_GeometricMean.R

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

Renv = new.env(parent = globalenv())

Renv$var1 = seq(1,5)
Renv$var2 = (Renv$var1)^2

FLenv=as.FL(Renv)


test_that("Check for geometric mean function",{
          result = eval_expect_equal({
                   test1 = geometric.mean(var1)
                   test2 = geometric.mean(var2)
            },Renv,FLenv)
          ##print(result)
    })