commented out time tests

LudvigOlsen · Jan 28, 2017 · 78546ae · 78546ae
1 parent d88fae9
commit 78546ae
Showing 1 changed file with 11 additions and 11 deletions.
diff --git a/R/l_methods.R b/R/l_methods.R
@@ -173,17 +173,17 @@ l_sizes <- function(v, n, fixed = FALSE){
 
 }
 
-system.time(
-
-  for (i in 5:100){
-
-    a <- l_sizes(c(1:i), c(0.1,0.4,0.5), fixed = FALSE)
-  }
-)
-
-system.time(l_sizes(c(1:20), c(0.2, 0.2, 0.2), fixed = TRUE))
-
-# Create a balanced partition() function
+# system.time(
+#
+#   for (i in 5:100){
+#
+#     a <- l_sizes(c(1:i), c(0.1,0.4,0.5), fixed = FALSE)
+#   }
+# )
+#
+# system.time(l_sizes(c(1:20), c(0.2, 0.2, 0.2), fixed = TRUE))
+#
+# # Create a balanced partition() function
 
 partition <- function(data, p, cat_col = NULL,
                     id_col = NULL, fixed = FALSE) {