tests/testsuite/test_apply.R

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

## Testing apply
Renv <- new.env(parent = globalenv())
Renv$m <- matrix(rnorm(25),5,
                dimnames=list(letters[1:5],
                            letters[6:10]))
FLenv <- as.FL(Renv)

test_that("apply over FLMatrix", {
    result1=eval_expect_equal({
        colmean <- apply(m,2,mean)
        rowmean <- apply(m,1,mean)
        rowsd <- apply(m,1,sd)
        colsd <- apply(m,2,sd)
        rowmax <- apply(m,1,max)
    },Renv,FLenv,
    tolerance=1e-6)
})