View source: R/estimatepast_RKI_timeseries.R
estimatepast_RKI_timeseries | R Documentation |
This function implements two sequential methods to estimate the real number of infected based on the current cumulative death count as presented by Tomas Pueyo in this (https://medium.com/@tomaspueyo/coronavirus-act-today-or-people-will-die-f4d3d9cd99ca) blog post.
estimatepast_RKI_timeseries( x, ..., prop_death, mean_days_until_death, doubling_time )
x |
data.frame. RKI data as downloaded with |
... |
variable names. One or multiple grouping columns of x, so Bundesland, Landkreis, Gender or Age |
prop_death |
numeric. Probability of death |
mean_days_until_death |
integer. Mean number of days from infection to death (in case of death) |
doubling_time |
numeric. Mean number of days for the number of infected to double |
EstimationCumNumberIllPast, the actual number of infected, is calculated with the current cumulative number of deaths CumNumberDead, the death rate prop_death and the average number of days mean_days_until_death from infection to death (in case of death). This approach only allows to estimate values at least mean_days_until_death days in the past. EstimationCumNumberIllPresent employs the last value in EstimationCumNumberIllPast to estimate the number of actually infected people beyond the mean_days_until_death threshold with a simple exponential growth model considering doubling_time. With EstimationCumNumberIllPast, EstimationCumNumberIllPresent and prop_death we can calculate an expected number of deaths EstimationCumNumberDeadFuture.
rki_timeseries <- get_RKI_timeseries() estimatepast_RKI_timeseries( rki_timeseries, prop_death = 0.01, mean_days_until_death = 17, doubling_time = 4 ) estimatepast_RKI_timeseries( rki_timeseries, Bundesland, prop_death = 0.03, mean_days_until_death = 17, doubling_time = 3 )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.