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

(v2.1.1.9263) small as.sir fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-04-29 16:51:29 +02:00
parent 30caa5e654
commit 407bc17311
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/sir.R
View File

@ -1380,7 +1380,7 @@ as_sir_method <- function(method_short,
test_values <- df$values
test_values_dbl <- as.double(test_values)
test_values_dbl[test_values %like% "^>[0-9]"] <- test_values_dbl[test_values %like% "^>[0-9]"] + 0.0000001
test_values_dbl[test_values %like% "^<[0-9]"] <- test_values_dbl[test_values %like% "^>[0-9]"] - 0.0000001
test_values_dbl[test_values %like% "^<[0-9]"] <- test_values_dbl[test_values %like% "^<[0-9]"] - 0.0000001
test_outcome <- vapply(
FUN.VALUE = double(1),
test_values_dbl,