diff --git a/R/create_IV.R b/R/create_IV.R index ca8413ef..9e03d52b 100644 --- a/R/create_IV.R +++ b/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, diff --git a/man/create_IV.Rd b/man/create_IV.Rd index 6e1ad20c..e5cb35c4 100644 --- a/man/create_IV.Rd +++ b/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: