tests/testthat/test-CREARBS.R

context("CREA.RBS")

test_that("Test CREA.RBS with EGATUR dataset.", {

  modelFit <- CREA.RBS(GastoTotalD~pais+aloja+motivo,data=EGATUR)
  expect_equal(class(modelFit), "MLA")
  expect_equal(modelFit[[1]], "CREARBS")

})

Try the MachineLearning package in your browser

Any scripts or data that you put into this service are public.

MachineLearning documentation built on March 13, 2020, 2:54 a.m.