reduce number of perms in examples for quickness

USCbiostats · May 23, 2020 · d7b40f4 · d7b40f4
1 parent 4620bf7
commit d7b40f4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/permutation.R b/R/permutation.R
@@ -39,7 +39,7 @@ permute_df <- function(.data) {
 #' set.seed(123)
 #' df <- simulate_block_data(c(3, 4, 5), lower_corr = .4, upper_corr = .6, n = 100)
 #'
-#' test_permutation(df, partitioner = part_pc1(), nperm = 10)
+#' test_permutation(df, partitioner = part_pc1(), nperm = 2)
 #'
 test_permutation <- function(.data, information = seq(.1, .6, by = .1), partitioner = part_icc(), ..., nperm = 100) {
   observed_summary <- map_partition(.data, partitioner = partitioner, information = information, ...)

diff --git a/R/plot.R b/R/plot.R
@@ -307,7 +307,7 @@ plot_info_hist <- function(.partition, fill = "#0172B1", color = NA,
 #' set.seed(123)
 #' df <- simulate_block_data(c(3, 4, 5), lower_corr = .4, upper_corr = .6, n = 100)
 #'
-#' test_permutation(df, partitioner = part_pc1(), nperm = 5) %>%
+#' test_permutation(df, partitioner = part_pc1(), nperm = 2) %>%
 #'   plot_permutation("nclusters")
 #'
 #' @importFrom rlang !!