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

AI improvements

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-12-07 12:04:55 +01:00
parent 87ad6da745
commit 8e8a9cd190
19 changed files with 199 additions and 140 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
R/mic.R
View File

@ -200,12 +200,12 @@ summary.mic <- function(object, ...) {
n_total <- x %>% length()
x <- x[!is.na(x)]
n <- x %>% length()
lst <- c('mic',
n_total - n,
sort(x)[1] %>% as.character(),
sort(x)[n] %>% as.character())
names(lst) <- c("Mode", "<NA>", "Min.", "Max.")
lst
c(
"Class" = 'mic',
"<NA>" = n_total - n,
"Min." = sort(x)[1] %>% as.character(),
"Max." = sort(x)[n] %>% as.character()
)
}
#' @exportMethod plot.mic