From cccfa61b089c242fb8d7a4690fe2a3e0bd7be5cd Mon Sep 17 00:00:00 2001
From: Malcolm Barrett <malcolmbarrett@gmail.com>
Date: Sat, 23 May 2020 16:07:08 -0700
Subject: [PATCH] remove long running examples

---
 R/permutation.R         | 7 -------
 R/plot.R                | 7 -------
 man/plot_permutation.Rd | 8 --------
 man/test_permutation.Rd | 7 -------
 4 files changed, 29 deletions(-)

diff --git a/R/permutation.R b/R/permutation.R
index 243715d..c7cf090 100644
--- a/R/permutation.R
+++ b/R/permutation.R
@@ -34,13 +34,6 @@ permute_df <- function(.data) {
 #' @return a tibble with summaries on observed and permuted data (the means of
 #'   the permuted summaries), as well as list-cols containing them
 #' @export
-#'
-#' @examples
-#' 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 = 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, ...)
   permutation_summary <- map_permutations(.data, partitioner = partitioner, information = information, ..., nperm = nperm)
diff --git a/R/plot.R b/R/plot.R
index d5f0cfd..204f5d4 100644
--- a/R/plot.R
+++ b/R/plot.R
@@ -303,13 +303,6 @@ plot_info_hist <- function(.partition, fill = "#0172B1", color = NA,
 #' @return a ggplot
 #' @export
 #'
-#' @examples
-#' 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 = 2) %>%
-#'   plot_permutation("nclusters")
-#'
 #' @importFrom rlang !!
 #' @importFrom ggplot2 geom_density
 plot_permutation <- function(permutations,
diff --git a/man/plot_permutation.Rd b/man/plot_permutation.Rd
index 8fc0918..d6ba2be 100644
--- a/man/plot_permutation.Rd
+++ b/man/plot_permutation.Rd
@@ -34,11 +34,3 @@ a ggplot
 \code{plot_permutation()} takes the results of \code{\link[=test_permutation]{test_permutation()}} and plots the
 distribution of permuted partitions compared to the observed partition.
 }
-\examples{
-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) \%>\%
-  plot_permutation("nclusters")
-
-}
diff --git a/man/test_permutation.Rd b/man/test_permutation.Rd
index 0f9d320..b355201 100644
--- a/man/test_permutation.Rd
+++ b/man/test_permutation.Rd
@@ -36,10 +36,3 @@ permuted results. The partitions and and permutations are also available in
 \code{list-cols}. \code{test_permutation()} tests across a range of target information
 values, as specified in the \code{information} argument.
 }
-\examples{
-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)
-
-}