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

(v2.1.1.9080) fix rescale_mic() for an outside MIC range

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-09-24 22:39:40 +02:00
parent 1ca40e8d67
commit a558f4c121
6 changed files with 31 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/mic.R
View File

@@ -304,9 +304,9 @@ rescale_mic <- function(x, mic_range, keep_operators = "edges", as.mic = TRUE) {
# create a manual factor with levels only within desired range
expanded <- plotrange_as_table(x,
expand = TRUE,
keep_operators = ifelse(keep_operators == "edges", "none", keep_operators),
mic_range = mic_range)
expand = TRUE,
keep_operators = ifelse(keep_operators == "edges", "none", keep_operators),
mic_range = mic_range)
if (keep_operators == "edges") {
names(expanded)[1] <- paste0("<=", names(expanded)[1])
names(expanded)[length(expanded)] <- paste0(">=", names(expanded)[length(expanded)])