tests/testthat/test_step.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())

FLenv = as.FL(Renv)

## Since both the objects need to be dealt differently, objects have been initialized and 
## defined outside test_that function
if(!is.TDAster()){
    Renv$vobsidCol <- "ObsID"
    Renv$vscope <- list(lower=Diameter~Height,
                upper=Diameter~Height+ShellWeight+ShuckedWeight)
    Renv$scope <- list(lower=Diameter~Height+ShellWeight,
                upper=Diameter~Height+ShellWeight+ShuckedWeight)
}else{
    Renv$vobsidCol <- "obsid"
    Renv$vscope <- list(lower=diameter~height,
                upper=diameter~height+shellweight+shuckedweight)
    Renv$scope <- list(lower=diameter~height+shellweight,
                upper=diameter~height+shellweight+shuckedweight)
}

FLenv$vobsidCol <- Renv$vobsidCol
FLenv$vscope <- Renv$vscope
FLenv$scope <- Renv$scope

## Since both the objects need to be dealt differently, objects have been initialized and 
## defined outside test_that function

## Since FL and R environments have different case structure for column names
## step function does not work properly. throws an error
flData <- FLTable(getTestTableName("tblAbaloneWide"), Renv$vobsidCol)
rData<-as.data.frame(flData)
colnames(rData)<-colnames(flData)

test_that("test for step(direction = backward) -- lm", {
        
    r <- step(lm(Renv$scope$upper, data = rData), scope = Renv$scope, direction = "backward")
    fl <- step(flData, scope = Renv$scope, direction = "backward")

    expect_equal(coef(r),coef(fl))
    expect_equal(r$coefficients,fl$coefficients)
    expect_equal(r[["coefficients"]],
                 fl[["coefficients"]])
})

## In a session with AdapteR loaded, R example does not run successfully.
## Asana Ticket : https://app.asana.com/0/136555696724838/369564725158537/f
test_that("test for step(direction = forward) -- lm", {
        
    r <- step(lm(Renv$scope$lower, data = rData), scope = Renv$scope, direction = "forward")
    fl <- step(flData, scope = FLenv$scope, direction = "forward")

    expect_equal(coef(r),coef(fl))
})

FLenv$var2 <- FLTable(getTestTableName("tblLogRegr"),"ObsID","VarID","Num_Val", whereconditions=c("ObsID = temp","VarID<5"))

test_that("Check for step--glm",{

          s1 <- step(FLenv$var2, scope=list(lower=c("2")), 
                    direction = "UFbackward",
                    familytype = "logistic")
          pred1 <-  predict(s1, type = "response")
          s2 <- step(FLenv$var2, scope=list(), 
                    direction = "forward",
                    familytype="logistic")
          pred2 <-  predict(s2, type = "response")

})



#FLenv$widetable <- FLTable(getTestTableName("tblAbaloneWide"), FLenv$vobsidCol)
#Renv$widetable<-as.data.frame(FLenv$widetable)

## Since FL and R environments have different case structure for column names
#colnames(Renv$widetable)<-colnames(FLenv$widetable)

## step function does not work properly. throws an error
## asana ticket- https://app.asana.com/0/143316600934101/158092657328842

##options(debugSQL = T)

#test_that("test for step", {
#  eval_expect_equal({
#    r<-step(widetable,scope = vscope, 
#            direction = "backward")
#  },Renv,FLenv)
#}
#)

# sqlQuery(connection,"CALL  FLRegrDataPrep('FL_DEMO.tblAbaloneWide', 
#  'ObsID', 
#          'Diameter', 
#          'FL_DEMO.ARBasetblAbaloneWideD1469186546', 
#          'obs_id_colname', 
#          'var_id_colname', 
#          'cell_val_colname', 
#          0, 
#          0, 
#          0, 
#          0, 
#          0, 
#          1, 
#          0, 
#          'Sex,Num_Length,WholeWeight,VisceraWeight,Rings,DummyCat', 
#          NULL, 
#          NULL, 
#          NULL,AnalysisID)")