fixed typo in sctest_info

brandmaier · Sep 1, 2020 · 1008d66 · 1008d66
1 parent 72b33b8
commit 1008d66
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/sctest_info.R b/R/sctest_info.R
@@ -104,7 +104,7 @@ sctest_info <- function(CSP, covariate, test, scaled_split, from, to) {
   # Nominal covariates
   if (test == "lmuo") {
     covariate <- droplevels(covariate)
-    CSP <- CSP[-1, drop = FALSE]
+    CSP <- CSP[-1, , drop = FALSE]
     freq <- prop.table(table(covariate))
     freq <- freq / sum(freq)
     ncat <- length(freq)