set.seed(1234)
df <- data.frame(mo = sample(1:5, 3), sc = sample(1:5, 3),
ua = sample(1:5, 3), pd = sample(1:5, 3), ad = sample(1:5, 3))
.prep_eq5d(df, names = c("mo", "sc", "ua", "pd", "ad"),
add_state = TRUE, add_lss = TRUE)
.prep_eq5d(df, names = c("mo", "sc", "ua", "pd", "ad"),
add_state = TRUE, add_lss = TRUE, add_lfs = TRUE, add_utility = TRUE,
eq5d_version = "5L", country = "Denmark")
Run the code above in your browser using DataLab