unroll_year_to_date: Recover original series from a vector of year-to-date...

In NateByers/IUHhelpers: Convenience functions for IU Health

Description

Recover original series from a vector of year-to-date averages

Usage

unroll_year_to_date(x)

Arguments

x	a vector of year-to-date averages

Examples

library(dplyr)

set.seed(1)
dat <- dplyr::tibble(year = rep(2018:2019, each = 12),
                     month = rep(1:12, times = 2),
                     original = sample(200:300, 24, TRUE)) %>%
  dplyr::group_by(year) %>%
  dplyr::mutate(ytd = roll_mean_year_to_date(original),
                unrolled = unroll_year_to_date(ytd))

NateByers/IUHhelpers documentation built on Feb. 25, 2020, 8:43 p.m.