mortality recalibrated

resplab · Jul 25, 2022 · 3f2e210 · 3f2e210
1 parent 9db1ea9
commit 3f2e210
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/R/input.R b/R/input.R
@@ -636,12 +636,9 @@ get_input <- function(age0 = 40,
   #Proportion of death by COPD that should be REMOVED from background mortality
   input$manual$explicit_mortality_by_age_sex<-cbind(
     #   0 for <35         35-39           40-44           45-49          50-54      55-59           60-64        65-69          70-74       75-79       80+
-    male =c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.000249949663705019,0.000279361481107238,0.000143184143539575,4.58552059432562e-05,0.000102594155577809,6.52263020912318e-05,1.07778470262612e-05,5.81042290186133e-05,2.18336719635301e-05,4.49710556825597e-05,-4.0267754970943e-05,-4.99669760287346e-05,-8.59620496745581e-05,-3.95551572650197e-05,-0.000165025695836827,-0.000238037931304093,-0.00032685432729955,-0.000438715069064686,-0.00050600469223705,0.000580239786723037,0.00165281035519525,0.00178882748260027,0.00197360741088778,0.00208265734639317,0.0023769834442027,0.00260422648107871,0.00292357104958589,0.00313545134525439,0.00334684816453369,0.00287752763870146,0.00240973265966247,0.00265902746355965,0.00303749042857185,0.00316156673273281,0.00360416997146693,0.0040639317255912,0.00447304738915796,0.00499378954488701,0.00557874849764433,0.00505770115735889,0.00407777319105142,0.00456095766267728,0.0055432401185574,0.00714354429349771,0.00859356082756144,0.00962513757175244,0.0112473627269577,0.013117771620995,0.0165918069682699,0.0198035368680714,0.022929228931603,0.0275506298462985,0.0305483419760513,0.0374875651996102,0.0394902254213564,0.0468895514727401,0.051803798156478,0.0587768050374814,0.0651606935902558,0.0723572320833362,0.0838078268330134,0.087813075182472,0.0804257382809533,0.0899887008867733,0.0746611452642845,0.0773748834918532,0.149696405844052,0.167229923246881,0.125657988543488, 0, 0
-
-    )
-    ,female =c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.00077,0.000204044403520189,0.00012527721873265,9.38179764267892e-05,8.52310693595392e-05,2.0948736613633e-05,0.000112963841564107,0.00010433676504019,5.4970941674673e-05,8.40452455971427e-05,7.13507996050295e-05,-5.32163960539644e-05,0.000108600166102096,-2.58547086080699e-05,-3.39656984665966e-05,-0.000104561408155271,-7.61106203700976e-05,-0.000145376981544917,-8.95689640121699e-05,-0.000166434371840576,0.000243219925937975,0.0008650546976534,0.000930888336636944,0.00101216109953299,0.00123284222432014,0.00133853130591277,0.00144269885860267,0.00168219643935857,0.00180689077125785,0.00189747191320053,0.00189498835689917,0.00144977074941933,0.00152408964706417,0.00171179411065646,0.00188158359328075,0.00200917449209433,0.00255429028811746,0.00251462637075366,0.00297904911157468,0.00305247152311787,0.00305909639703686,0.00247270876123033,0.00263944132927282,0.00297318580456147,0.00399439553966772,0.00430369126521429,0.00519320421612733,0.00694185653392955,0.00759956858672857,0.00934224983773695,0.0112825987417631,0.0127892562246108,0.0174914683720296,0.0188209248942959,0.0219164492207358,0.0264718581662204,0.0301728155832754,0.0330406840844788,0.0374281244493398,0.0432518126953188,0.0531098375652765,0.0623997534486314,0.0591768901970186,0.0737223620452372,0.0753080451656278,0.104676330930181,0.108606384925549,0.156783719504522,0.114000430396816,0.191472188310203,0,0
-
-    ))
+    male =c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.000403539,-0.000146157,-2.02E-06,2.86E-05,-3.44E-05,-4.23E-05,4.11E-05,6.17E-07,-0.000153637,-8.66E-05,-0.000164969,-0.000196571,-0.000187843,-0.000258444,-0.000313082,-0.000450107,-0.000503461,-0.000507455,-0.000685443,-0.000778368,0.000174258,0.001290859,0.001312415,0.001563206,0.001702653,0.001801797,0.001963438,0.002204392,0.002453385,0.002698432,0.002205324,0.0014888,0.001848938,0.001817781,0.002134294,0.002514315,0.00259607,0.003111937,0.003895328,0.004266737,0.003600876,0.002149508,0.003656,0.003476187,0.004743609,0.005217777,0.00717833,0.009193578,0.011745021,0.013994564,0.016918953,0.01972724,0.024327132,0.029473222,0.0333568,0.034382221,0.043683632,0.046918264,0.05015422,0.056785037,0.067912998,0.089136952,0.084619065,0.087049684,0.071382935,0.113123173,0.056760747,0.131580432,0.102958338,0.121878112,-0.173197386,-1
+            )
+    ,female =c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.000259844,0.000101718,-3.40E-05,5.93E-05,8.02E-05,-1.50E-05,5.27E-05,-3.42E-05,-2.48E-05,-1.31E-05,-8.41E-05,-6.79E-05,-5.84E-05,-0.00019066,-0.000102213,-0.000117037,-0.000177858,-0.000220223,-0.000265341,-0.000330637,0.000229625,0.000747219,0.000783642,0.000885681,0.001036908,0.001221667,0.001263684,0.001488539,0.001609789,0.001895704,0.001446215,0.001285518,0.001500222,0.001575942,0.001798989,0.001964052,0.002175782,0.002460083,0.002847027,0.003243588,0.002699441,0.002155372,0.002928563,0.003010949,0.003689935,0.004178407,0.00548861,0.006334125,0.008011011,0.009087395,0.011673741,0.012943067,0.017208392,0.018224239,0.022955536,0.026702058,0.030114256,0.035733502,0.03965046,0.047085019,0.052203521,0.058999658,0.070092134,0.068989349,0.05458069,0.074344634,0.05941906,0.105553297,0.050910243,0.136369534,-0.107299339,-1    ))
 
   #  input$manual$explicit_mortality_by_age_sex <- input$manual$explicit_mortality_by_age_sex * 1000000000000