From c4fb00eacdd2cc19ec70a1a9292501809caa80bd Mon Sep 17 00:00:00 2001 From: Naeem Model Date: Wed, 10 Jan 2024 15:08:43 +0000 Subject: Refactor ID and IDEA methods --- R/server.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'R/server.R') diff --git a/R/server.R b/R/server.R index a2ba674..4cf87db 100644 --- a/R/server.R +++ b/R/server.R @@ -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) } -- cgit v1.2.3