tests/testthat/test-OptimLMM.R

In economistgame/OptimClassifier: Create the Best Train for Classification Models

context("Optim LMM")

test_that("Test LMM with Australian Credit", {
  #Train a simply model
  modelFit <- Optim.LMM("Y", AustralianCredit,p=0.85,seed=2018)
  expect_equal(class(modelFit), "Optim")
  #Print
  print(modelFit, plain=TRUE)

  print(modelFit, plain=FALSE)

  summary(modelFit)
  })