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

thesis advisors

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-08-03 09:59:39 +02:00
parent 6262315527
commit bd9bcfef78
4 changed files with 36 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/freq.R
View File

@ -326,7 +326,7 @@ frequency_tbl <- function(x,
header <- header %>% paste0(' (unique: ', boxplot.stats(x)$out %>% n_distinct(), ')')
}
}
if (any(class(x) == "rsi")) {
if (NROW(x) > 0 & any(class(x) == "rsi")) {
header <- header %>% paste0('\n')
cnt_S <- sum(x == "S")
cnt_I <- sum(x == "I")