diff options
author | Naeem Model <me@nmode.ca> | 2024-01-13 19:31:08 +0000 |
---|---|---|
committer | Naeem Model <me@nmode.ca> | 2024-01-13 19:31:08 +0000 |
commit | 2a6de5fb5270f70eb83233a10bb84301c119cc16 (patch) | |
tree | 64fbe8d9d4738ef519c78327672738aa138f5960 /R/server.R | |
parent | f5fcb4e1d46bfe8dc2d79cf4f3022f964b08a321 (diff) |
Refactor seqB
Diffstat (limited to 'R/server.R')
-rw-r--r-- | R/server.R | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) |