Smoking cessation adherence and decay rate missing

https://github.com/resplab/epicR/blob/0e92ae2d73c97223c8122563a5fb7d447de0eb94/R/input.R#L217

We need adherence
Why did the coefficient for diagnosis and decay rate change?
Smoking cessation should occur at the point of diagnosis, with a certain adherence probability, whether or not the patient received case detection.

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 <- ""

resplab / epicR

Smoking cessation adherence and decay rate missing #118