P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 06:02:01 +02:00
Code Releases Activity

(v2.1.1.9143) unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-02-07 19:18:55 +01:00
parent cc2bb151ab
commit 2171f05951
11 changed files with 17 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/antibiogram.R
View File

@ -625,7 +625,7 @@ antibiogram.default <- function(x,
# simulate pathogen incidence
# = Dirichlet (Gamma) parameters
random_incidence <- runif(1, min = 0, max = 1)
random_incidence <- stats::runif(1, min = 0, max = 1)
simulated_incidence <- stats::qgamma(
p = random_incidence,
shape = priors$gamma_posterior,
@ -636,7 +636,7 @@ antibiogram.default <- function(x,
# simulate susceptibility
# = Beta parameters
random_susceptibity <- runif(1, min = 0, max = 1)
random_susceptibity <- stats::runif(1, min = 0, max = 1)
simulated_susceptibility <- stats::qbeta(
p = random_susceptibity,
shape1 = priors$beta_posterior_1,
@ -1009,7 +1009,7 @@ wisca <- function(x,
}
#' @export
#' @param wisca_model the outcome of [wisca()] or [antibiogram(..., wisca = TRUE)]
#' @param wisca_model the outcome of [wisca()] or [`antibiogram(..., wisca = TRUE)`][antibiogram()]
#' @rdname antibiogram
retrieve_wisca_parameters <- function(wisca_model, ...) {
stop_ifnot(isTRUE(attributes(wisca_model)$wisca), "This function only applies to WISCA models. Use `wisca()` or `antibiogram(..., wisca = TRUE)` to create a WISCA model.")