ws

ms609 · Jun 24, 2024 · 0fd222d · 0fd222d
1 parent 4fdf37e
commit 0fd222d
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/median.R b/R/median.R
@@ -74,9 +74,13 @@ median.multiPhylo <- function(x, na.rm = FALSE,
   } else {
     chosen <- distances == min(distances)
     if (index) {
-      which(chosen) 
+      which(chosen)
     } else {
-      if (sum(chosen) == 1L) x[[which(chosen)]] else x[chosen]
+      if (sum(chosen) == 1L) {
+        x[[which(chosen)]]
+      } else {
+        x[chosen]
+      }
     }
   }
 }