Refactor ID and IDEA methods

[Rnaught] / R / server.R

diff --git a/R/server.R b/R/server.R
index a2ba674c0827f45203257976cb1e09555172f43e..4cf87db6cb0cc15c66fc364e8e29a8dcdcee65de 100644 (file)
--- 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)
 }