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

(v2.1.1.9194) new argument for missing R breakpoints - updated from WHONET

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-03-12 16:24:38 +01:00
parent e1b7252ff6
commit a7ef22a21e
27 changed files with 15755 additions and 15399 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/random.R
View File

@ -133,7 +133,7 @@ random_exec <- function(method_type, size, mo = NULL, ab = NULL) {
# get highest/lowest +/- random 1 to 3 higher factors of two
max_range <- mic_range[min(
length(mic_range),
which(mic_range == max(df$breakpoint_R, na.rm = TRUE)) + sample(c(1:3), 1)
which(mic_range == max(df$breakpoint_R[!is.na(df$breakpoint_R)], na.rm = TRUE)) + sample(c(1:3), 1)
)]
min_range <- mic_range[max(
1,
@ -155,7 +155,7 @@ random_exec <- function(method_type, size, mo = NULL, ab = NULL) {
return(out)
} else if (method_type == "DISK") {
set_range <- seq(
from = as.integer(min(df$breakpoint_R, na.rm = TRUE) / 1.25),
from = as.integer(min(df$breakpoint_R[!is.na(df$breakpoint_R)], na.rm = TRUE) / 1.25),
to = as.integer(max(df$breakpoint_S, na.rm = TRUE) * 1.25),
by = 1
)