test/decode_heemod.R

In salmuz/WeMEco: Custom Web Application Web for Health Economics Decision Making

# Decode variables models 

matrix_strategy_list <- list(mat_base, mat_new)
parameters <- par_mod
states_list <- list(state_life, state_death)
strategy_list <- list(strat_base, strat_new)
fit.me <- ec_mod

save(matrix_strategy_list, parameters, states_list, 
     strategy_list, fit.me, file = "R/2state_mod.RData")

# Decode other models 
res_mod <- stents_6e_me
matrix_strategy_list <- lapply(res_mod$uneval_strategy_list, function(x) x$transition)
parameters <- res_mod$parameters
states_list <- lapply(res_mod$uneval_strategy_list$base$states, function(x) x)
strategy_list <- lapply(res_mod$uneval_strategy_list, function(x) x)
fitting <- stents_6e_me
fitting.psa <- psa.stent6s

save(matrix_strategy_list, parameters, states_list, 
     strategy_list, fit.me, res_dsa, res_psa, file = "R/heemodDemo.RData")