# NOT RUN {
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")))
hesim_dat <- hesim_data(strategies = strategies,
patients = patients)
dat <- expand(hesim_dat, by = c("strategies", "patients"))
input_mats <- input_mats(X = list(mu = model.matrix(~ age, dat)),
strategy_id = dat$strategy_id,
n_strategies = length(unique(dat$strategy_id)),
patient_id = dat$patient_id,
n_patients = length(unique(dat$patient_id)))
print(input_mats)
# }
Run the code above in your browser using DataLab