tests/testthat/test-OptimGLM.R

context("Optim.GLM")

test_that("Test GLM with Australian Credit", {
  #Train a simply model
  modelFit <- Optim.GLM(Y~., AustralianCredit, p = 0.7, seed=2018,criteria="tii_error")
  expect_equal(class(modelFit), "Optim")
  #Print
  print(modelFit)
  #Make sure if model was generated okey
  expect_equal(any(class(summary(modelFit)$coef)== "matrix"),TRUE)
})
economistgame/OptimClassifier documentation built on Jan. 25, 2022, 12:22 p.m.