tests/testthat/test-model_plot.R

test_that("Can handle four variables", {
  mod <- Framingham |>
    model_train(TenYearCHD ~ age + sex + diabetes + BPMeds,
             family="binomial")
  P <- model_plot(mod)
  expect_snapshot_file(gg_in_tmp_png(P), "four-facets.png")
})

Try the LSTbook package in your browser

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

LSTbook documentation built on April 3, 2025, 6:02 p.m.