Description Usage Arguments Value Examples
Calculates the effective reproductive number from the growth rate of cases. Uses formula 4.2 in Wallinga and Lispitch (2007). Confidence interval assume ratio between two Poissons (see Luis Max documentation).
1 2 3 4 5 6 7 8 9 10 11 | Rt(
obj,
count = "casos",
gtdist,
meangt,
sdgt,
CI = "beta",
alpha = 0.95,
a0 = 2,
b0 = 3
)
|
meangt |
if gtdist = "delta" it is the exact period between primary and secondary infections). If gtdist = "normal", it is the mean generation time. |
sdgt |
if gtdist = "normal", it is the standard deviation of the generation time distribution. |
CI |
Model used to compute the confidence interval. Possible choice: "beta". |
object |
a data.frame with variables "casos" and "SE", ideally from getCases(). |
data.frame with estimated Rt and confidence intervals.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | d <- getCases(cities = 3302205, lastday ="2018-03-10") # dengue
# Rt original
rt<-Rtoriginal(obj = d, count = "casos", meangt=3)
plot(rt$Rt, type="l", xlab = "weeks", ylab = "Rt")
lines(rt$lwr,lty=3); lines(rt$upr,lty=3)
abline(h = 1, col = 2)
# Rt delta and normal
rtdelta<-Rt(obj = d, count = "casos", gtdist="delta", meangt=3)
rtnorm<-Rt(obj = d, count = "casos", gtdist="normal", meangt=3, sdgt = 1)
lines(rtdelta$Rt, col = 3)
lines(rtdelta$lwr,lty = 3, col = 3)
lines(rtdelta$upr,lty = 3, col = 3)
lines(rtnorm$Rt, col = 4)
lines(rtnorm$lwr,lty = 3, col = 4)
lines(rtnorm$upr,lty = 3, col = 4)
legend(30,3,c("original","delta","normal"),lty=1, col = c(1,3,4), cex = 0.7)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.