tests/testthat/test-roxytest-testexamples-get_models.R

# Generated by roxytest: Do not edit by hand!

context("File R/get_models.R: @testexamples")

test_that("Function get_models() @ L16", {
  
  library(survival)
  zz <- ezcox(lung, covariates = c("sex", "ph.ecog"), controls = "age", return_models = TRUE)
  mds <- get_models(zz)
  str(mds, max.level = 1)
  expect_s3_class(mds, "ezcox_models")
})
ShixiangWang/ezcox documentation built on Jan. 26, 2024, 4:12 p.m.