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

(v1.3.0) small MIC fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-07-30 12:37:01 +02:00
parent ea4e5e5b81
commit 8ff46eefe9
63 changed files with 397 additions and 397 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/mic.R
View File

@ -71,8 +71,8 @@ as.mic <- function(x, na.rm = FALSE) {
# transform => to >= and =< to <=
x <- gsub("=<", "<=", x, fixed = TRUE)
x <- gsub("=>", ">=", x, fixed = TRUE)
# starting dots must start with 0
x <- gsub("^[.]+", "0.", x)
# dots without a leading zero must start with 0
x <- gsub("([^0-9]|^)[.]", "\\10.", x)
# values like "<=0.2560.512" should be 0.512
x <- gsub(".*[.].*[.]", "0.", x)
# remove ending .0