Speed up example runtime even more for CRAN

Author: alexpghayes

R/sample_edgelist.R

@@ -56,7 +56,7 @@
 #'
 #' ##### undirected examples ----------------------------
 #'
-#' n <- 1000
+#' n <- 100
 #' k <- 5
 #'
 #' X <- matrix(rpois(n = n * k, 1), nrow = n)
@@ -103,18 +103,18 @@
 #'
 #' ##### directed examples ----------------------------
 #'
-#' n2 <- 1000
+#' n2 <- 100
 #'
 #' k1 <- 5
 #' k2 <- 3
 #'
-#' d <- 500
+#' d <- 50
 #'
 #' X <- matrix(rpois(n = n2 * k1, 1), nrow = n2)
 #' S <- matrix(runif(n = k1 * k2, 0, .1), nrow = k1, ncol = k2)
 #' Y <- matrix(rexp(n = k2 * d, 1), nrow = d)
 #'
-#' fm <- directed_factor_model(X, S, Y, expected_in_degree = 20)
+#' fm <- directed_factor_model(X, S, Y, expected_in_degree = 2)
 #' fm
 #'
 #' ### sampling graphs as edgelists ----------------------