Open momozinho opened 3 years ago
In outbreaker2:::summary.outbreaker_chains, function f2 is defined as: f2 <- function(x) { (sort(table(x), decreasing = TRUE)/length(x))[1] }
outbreaker2:::summary.outbreaker_chains
f2
f2 <- function(x) { (sort(table(x), decreasing = TRUE)/length(x))[1] }
This leads to omission of imported cases in determining the infectors of each alpha column.
alpha
Suggest to add exclude = NULL so that the function becomes: f2 <- function(x) { (sort(table(x, exclude = NULL), decreasing = TRUE)/length(x))[1] }
exclude = NULL
f2 <- function(x) { (sort(table(x, exclude = NULL), decreasing = TRUE)/length(x))[1] }
Seen with @annecori
In
outbreaker2:::summary.outbreaker_chains, functionf2is defined as:f2 <- function(x) { (sort(table(x), decreasing = TRUE)/length(x))[1] }This leads to omission of imported cases in determining the infectors of each
alphacolumn.Suggest to add
exclude = NULLso that the function becomes:f2 <- function(x) { (sort(table(x, exclude = NULL), decreasing = TRUE)/length(x))[1] }Seen with @annecori