tests/testthat/test_check_logit.R

# Text to Logit Model assumptions
test_that("It calculates assumptions correctly", {

  expect_equal(check_logit(glm(am ~ wt + hp, data = mtcars, family = "binomial"), data = mtcars, tipo_modelo = "binario", vars_numericas = "wt", y = "am"),
               check_logit(glm(am ~ wt + hp, data = mtcars, family = "binomial"), data = mtcars, tipo_modelo = "binario", vars_numericas = "wt", y = "am"))
})

Try the RegAssure package in your browser

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

RegAssure documentation built on Sept. 8, 2023, 5:36 p.m.