Check costs of case detection and background costs

[KateJohnson]

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

1. The costs of case detection in Johnson et al. 2021 are: https://github.com/KateJohnson/epicR/blob/closed_cohort/R/input.R

input$diagnosis$case_detection_methods <- cbind(None=c(0, 0, 0), CDQ17= c(4.1013, 4.394, 11.56), FlowMeter= c(3.174, 1.6025, 30.46), FlowMeter_CDQ= c(2.7321, 0.8779, 42.01))

input$diagnosis$case_detection_methods_eversmokers <- cbind(None=c(0, 0, 0), CDQ195= c(2.3848, 3.7262, 11.56), CDQ165= c(3.7336, 4.8098, 11.56), FlowMeter= c(3.1677, 2.6657, 24.33), FlowMeter_CDQ= c(2.8545, 0.8779, 42.01))

input$diagnosis$case_detection_methods_symptomatic <- cbind(None=c(0, 0, 0), FlowMeter= c(3.2705, 2.2735, 24.33))

2. The background costs of COPD in Johnson et al. 2021 are: https://github.com/KateJohnson/epicR/blob/closed_cohort/R/input.R

   input$cost$bg_cost_by_stage=t(as.matrix(c(N=0, I=1351.0528, II=3301.0528, III=8641.0528, IV=11781.0528))) input$cost$exac_dcost=t(as.matrix(c(mild=291.0528,moderate=7261.0528,severe=92121.0528, verysevere=201701.0528)))

*1.0528 is needed to adjust the price year to 2019 CAD

3. Costs of outpatient diagnosis in Johnson et at was: input$cost$cost_outpatient_diagnosis <- 61.18

[KateJohnson]

Close after PR https://github.com/resplab/epicR/pull/126 is accepted