CRAN said to remove example for this unexported function.

bschneidr · Mar 30, 2022 · f8c765f · f8c765f
1 parent d9a053b
commit f8c765f
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 19 deletions.
diff --git a/R/redistribute_weights.R b/R/redistribute_weights.R
@@ -9,15 +9,6 @@
 #'
 #' @return A numeric vector of adjusted weights, of the same length as \code{wt_set}.
 #' @keywords internal
-#' @examples
-#'
-#' example_data <- data.frame(weight = c(1.5, 1.25, 1.25, 2, 0.5, 1.5),
-#'                            response_status = c(1, 1, 0, 0, 1, 1),
-#'                            stratum = c('A', 'B', 'A', 'A', 'B', 'B'))
-#'
-#' svrep:::shift_weight(wt_set = example_data$weight,
-#'                      is_upweight_case = example_data$response_status == 1,
-#'                      is_downweight_case = example_data$response_status == 0)
 
 shift_weight <- function(wt_set, is_upweight_case, is_downweight_case) {
 

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