diff --git a/R/slide.R b/R/slide.R index 3797836af..5a6d8264c 100644 --- a/R/slide.R +++ b/R/slide.R @@ -943,8 +943,10 @@ epi_slide_opt <- function( #' # output column names: #' covid_case_death_rates_extended %>% #' group_by(geo_value) %>% -#' epi_slide_mean(c(case_rate, death_rate), .window_size = 7, -#' .new_col_names = c("smoothed_case_rate", "smoothed_death_rate")) %>% +#' epi_slide_mean(c(case_rate, death_rate), +#' .window_size = 7, +#' .new_col_names = c("smoothed_case_rate", "smoothed_death_rate") +#' ) %>% #' ungroup() #' covid_case_death_rates_extended %>% #' group_by(geo_value) %>%