test_that("model_parameters.truncreg", {
skip_if_not_installed("truncreg")
skip_if_not_installed("survival")
set.seed(123)
data("tobin", package = "survival")
model <- truncreg::truncreg(
formula = durable ~ age + quant,
data = tobin,
subset = durable > 0
)
params <- model_parameters(model)
expect_equal(params$SE, c(9.21875, 0.22722, 0.03259, 0.56841), tolerance = 1e-3)
expect_equal(params$t, c(1.36653, 1.89693, -3.64473, 2.90599), tolerance = 1e-3)
expect_equal(
colnames(params),
c("Parameter", "Coefficient", "SE", "CI", "CI_low", "CI_high", "t", "df_error", "p")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.