From 2a6de5fb5270f70eb83233a10bb84301c119cc16 Mon Sep 17 00:00:00 2001
From: Naeem Model <me@nmode.ca>
Date: Sat, 13 Jan 2024 19:31:08 +0000
Subject: Refactor seqB

---
 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 4cf87db..384b341 100644
--- a/R/server.R
+++ b/R/server.R
@@ -299,8 +299,8 @@ eval_estimator <- function(input, output, estimator, dataset) {
   }
   # Sequential Bayes
   else if (estimator$method == "seqB")
-    estimate <- round(seqB(unlist(dataset[3]), mu = serial,
-                           kappa = estimator$kappa)$Rhat, 2)
+    estimate <- round(seq_bayes(unlist(dataset[3]), mu = serial,
+                           kappa = estimator$kappa), 2)
   # Incidence Decay
   else if (estimator$method == "ID")
     estimate <- round(id(unlist(dataset[3]), mu = serial), 2)
-- 
cgit v1.2.3