tests/limitations/test_lm.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())

var1 = c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
var2 = c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
var3 = rep(0:1,each = 10)
var4 = c(var1,var2)
var5 <- data.frame(var4 = var4,var3 = var3)
rownames(var5) <- 1:nrow(var5)
Renv$var5 <- var5
FLenv = as.FL(Renv)

## data needs to be explicitly specified.
## Intercept and interaction terms not supported.
#Asana Ticket -  https://app.asana.com/0/143316600934101/146934264360575
test_that("Check for lm function without intercept and data",{
          result = eval_expect_equal({
                   test2 = lm(var4~var3 - 1)
            },Renv,FLenv)
          print(result)
    })