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

unit test fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-05-20 18:58:35 +02:00
parent 08a27922a8
commit fc269e667d
7 changed files with 17 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/sir.R
View File

@ -327,7 +327,7 @@ is_sir_eligible <- function(x, threshold = 0.05) {
# extra param: warn (logical, to never throw a warning)
as.sir.default <- function(x, S = "^(S|U)+$", I = "^(I|H)+$", R = "^(R)+$", N = "^(N|V)+$", SDD = "^(SDD|D)+$", ...) {
if (inherits(x, "sir")) {
return(x)
return(as_sir_structure(x))
}
x.bak <- x