docs: unwrap examples for create_IV()

R/create_IV.R

@@ -45,7 +45,6 @@
 #' @family Information Value
 #'
 #' @examples
-#' \donttest{
 #' # Return a summary table of IV
 #' sq_data %>%
 #'   dplyr::mutate(X = ifelse(Workweek_span > 40, 1, 0)) %>%
@@ -62,7 +61,7 @@
 #'   create_IV(outcome = "X",
 #'             predictors = c("Email_hours", "Meeting_hours"),
 #'             return = "summary")
-#' }
+#'
 #' @export
 create_IV <- function(data,
                       predictors = NULL,

man/create_IV.Rd

@@ -58,7 +58,6 @@ Specify an outcome variable and return IV outputs.
 All numeric variables in the dataset are used as predictor variables.
 }
 \examples{
-\donttest{
 # Return a summary table of IV
 sq_data \%>\%
   dplyr::mutate(X = ifelse(Workweek_span > 40, 1, 0)) \%>\%
@@ -75,7 +74,7 @@ sq_data \%>\%
   create_IV(outcome = "X",
             predictors = c("Email_hours", "Meeting_hours"),
             return = "summary")
-}
+
 }
 \seealso{
 Other Variable Association: