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

(v1.5.0.9034) unit test fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-03-07 21:16:45 +01:00
parent 1bbf409fe5
commit 450bbe5fb7
17 changed files with 49 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/random.R
View File

@ -121,10 +121,10 @@ random_exec <- function(type, size, mo = NULL, ab = NULL) {
}
out <- as.mic(sample(set_range, size = size, replace = TRUE))
# 50% chance that lowest will get <= and highest will get >=
if (runif(1) > 0.5) {
if (stats::runif(1) > 0.5) {
out[out == min(out)] <- paste0("<=", out[out == min(out)])
}
if (runif(1) > 0.5) {
if (stats::runif(1) > 0.5) {
out[out == max(out)] <- paste0(">=", out[out == max(out)])
}
return(out)