create_input_mats | R Documentation |
create_input_mats()
is a generic function for creating an object of class
input_mats
. Model matrices are constructed based on the
variables specified in the model object
and the data specified in input_data
.
create_input_mats()
is not typically called by users directly, but is
instead used by functions that create model objects (e.g.,
create_IndivCtstmTrans()
, create_CohortDtstmTrans()
,
create_PsmCurves()
).
create_input_mats(object, ...) ## S3 method for class 'lm' create_input_mats(object, input_data, ...) ## S3 method for class 'flexsurvreg' create_input_mats(object, input_data, ...) ## S3 method for class 'flexsurvreg_list' create_input_mats(object, input_data, ...) ## S3 method for class 'partsurvfit' create_input_mats(object, input_data, ...) ## S3 method for class 'params_lm' create_input_mats(object, input_data, ...) ## S3 method for class 'params_surv' create_input_mats(object, input_data, ...) ## S3 method for class 'params_surv_list' create_input_mats(object, input_data, ...) ## S3 method for class 'multinom' create_input_mats(object, input_data, ...) ## S3 method for class 'multinom_list' create_input_mats(object, input_data, ...) ## S3 method for class 'params_mlogit_list' create_input_mats(object, input_data, ...)
object |
An object of the appropriate class. |
... |
Further arguments passed to |
input_data |
An object of class |
An object of class input_mats
.
input_mats()
library("flexsurv") strategies <- data.frame(strategy_id = c(1, 2)) patients <- data.frame(patient_id = seq(1, 3), age = c(45, 47, 60), female = c(1, 0, 0), group = factor(c("Good", "Medium", "Poor"))) states <- data.frame(state_id = seq(1, 3), state_name = factor(paste0("state", seq(1, 3)))) hesim_dat <- hesim_data(strategies = strategies, patients = patients, states = states) # Class "lm" input_data <- expand(hesim_dat, by = c("strategies", "patients", "states")) medcost_fit <- lm(costs ~ female + state_name, psm4_exdata$costs$medical) input_mats <- create_input_mats(medcost_fit, input_data) input_mats # Class "flexsurvreg" input_data <- expand(hesim_dat, by = c("strategies", "patients")) fit_wei <- flexsurvreg(formula = Surv(futime, fustat) ~ 1, data = ovarian, dist = "weibull") input_mats <- create_input_mats(fit_wei, input_data) input_mats
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.