R package for the Evaluation Platform in COPD (EPIC), an agent-based whole-disease model for projection of health and economic outcomes and COPD interventions.
11
stars
11
forks
source link
Smoking cessation adherence and decay rate missing #118
input_help$smoking$ln_h_ces_betas <- "Log-hazard of smoking cessation"
input$smoking$ln_h_ces_betas <- c(intercept = -3.7, sex = 0, age = 0.02, age2 = 0, calendar_time = -0.01, diagnosis = log(1.38))
input_ref$smoking$ln_h_ces_betas <- "Diagnosis coefficient from Wu et al. BMC Public Health 2006"
input_help$smoking$smoking_ces_coefficient <- "Coefficient for the decay rate of smoking cessaton treatment, default is 100"
input$smoking$smoking_ces_coefficient <- 100
input_ref$smoking$smoking_ces_coefficient <- ""
https://github.com/resplab/epicR/blob/0e92ae2d73c97223c8122563a5fb7d447de0eb94/R/input.R#L217
Code In the original implementation of smoking cessation: https://github.com/KateJohnson/epicR/blob/closed_cohort/R/input.R
input_help$smoking$ln_h_ces_betas <- "Log-hazard of smoking cessation" input$smoking$ln_h_ces_betas <- c(intercept = -3.7, sex = 0, age = 0.02, age2 = 0, calendar_time = -0.01, diagnosis = log(1.38)) input_ref$smoking$ln_h_ces_betas <- "Diagnosis coefficient from Wu et al. BMC Public Health 2006"
input_help$smoking$smoking_ces_coefficient <- "Coefficient for the decay rate of smoking cessaton treatment, default is 100" input$smoking$smoking_ces_coefficient <- 100 input_ref$smoking$smoking_ces_coefficient <- ""
input_help$smoking$smoking_cessation_adherence <- "Proportion adherent to smoking cessation treatment" input$smoking$smoking_cessation_adherence <- 0.7 input_ref$smoking$smoking_cessation_adherence <- ""