makeDist work with 1 obs

bcallaway11 · Jul 12, 2024 · 6e5143d · 6e5143d
1 parent 67133ed
commit 6e5143d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/BMisc.R b/R/BMisc.R
@@ -241,7 +241,7 @@ blockBootSample <- function(data, idname) {
 makeDist <- function(x, Fx, sorted = FALSE, rearrange = FALSE, force01 = FALSE, method = "constant") {
   if (!sorted) {
     tmat <- cbind(x, Fx)
-    tmat <- tmat[order(x), ]
+    tmat <- tmat[order(x), , drop=FALSE]
     x <- tmat[, 1]
     Fx <- tmat[, 2]
   }