diff options
author | Naeem Model <me@nmode.ca> | 2024-01-10 15:08:43 +0000 |
---|---|---|
committer | Naeem Model <me@nmode.ca> | 2024-01-10 15:08:43 +0000 |
commit | c4fb00eacdd2cc19ec70a1a9292501809caa80bd (patch) | |
tree | 2ee90388f558fa2498413cb85d31043b00b07a03 /R/server.R | |
parent | e1c61de5a0e693e2f24a1c4a10336e2a1c4563cb (diff) |
Refactor ID and IDEA methods
Diffstat (limited to 'R/server.R')
-rw-r--r-- | R/server.R | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -303,10 +303,10 @@ eval_estimator <- function(input, output, estimator, dataset) { kappa = estimator$kappa)$Rhat, 2) # Incidence Decay else if (estimator$method == "ID") - estimate <- round(ID(unlist(dataset[3]), mu = serial), 2) + estimate <- round(id(unlist(dataset[3]), mu = serial), 2) # Incidence Decay with Exponential Adjustement else if (estimator$method == "IDEA") - estimate <- round(IDEA(unlist(dataset[3]), mu = serial), 2) + estimate <- round(idea(unlist(dataset[3]), mu = serial), 2) return(estimate) } |