Set a seed

Author: hadley

R/expect-all.R

@@ -14,6 +14,7 @@
 #' show_failure(expect_all_equal(x2, 1))
 #'
 #' # expect_all_true() and expect_all_false() are helpers for common cases
+#' set.seed(1016)
 #' show_failure(expect_all_true(rpois(100, 10) < 20))
 #' show_failure(expect_all_false(rpois(100, 10) > 20))
 expect_all_equal <- function(object, expected) {