Fix outdated doc example

bschneidr · Dec 30, 2024 · e303514 · e303514
1 parent 734b6ce
commit e303514
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/R/successive-difference-replication.R b/R/successive-difference-replication.R
@@ -187,17 +187,19 @@ assign_hadamard_rows <- function(
 #'   target_number_of_replicates = 4,
 #'   use_normal_hadamard = FALSE
 #' )
+#' print(rep_factors)
 #'
 #' # These replicate factors are equivalent
 #' # to the SD2 variance estimator
 #' tcrossprod(rep_factors - 1)
 #'
 #' # Compare to the quadratic form of the SD2 estimator
-#' sd1_quad_form <- make_quad_form_matrix(
-#'   variance_estimator = "SD1",
+#' sd2_quad_form <- make_quad_form_matrix(
+#'   variance_estimator = "SD2",
 #'   cluster_ids        = matrix(1:4, ncol = 1),
 #'   sort_order         = matrix(1:4, ncol = 1)
 #' )
+#' print(sd2_quad_form)
 #'
 make_sdr_replicate_factors <- function(n, target_number_of_replicates, use_normal_hadamard = FALSE) {
 

diff --git a/man/make_sdr_replicate_factors.Rd b/man/make_sdr_replicate_factors.Rd