tests/testthat/test-logistfPrint.R

library(logistf)
data(sex2)
fit <- logistf(case ~ age + oc + vic + vicl + vis + dia, data = sex2,
               alpha = 0.1)

test_that("streamlined summary is a matrix", {
  expect_type(logistfPrint(fit), "double")
})
TalhoukLab/biostatUtil documentation built on April 14, 2025, 4:15 a.m.