calc_achievement: Calculate Achievement

Description Usage Arguments Value Examples

View source: R/calc_achievement.R

Description

Calculate Achievement

Usage

1

Arguments

df

MSD based dataframe

Value

one or two additional columns that calculate achievement and/or quarterly achievement

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
## Not run: 
df_msd <- read_msd(path)
df_msd_agg <- df_msd %>%
 filter(operatingunit == "Jupiter"
        indicator %in% c("TX_NEW", "TX_CURR"),
        fundingagency != "Dedup",
        standardizeddisaggregate == "Total Numerator") %>%
 group_by(operatingunit, fundingagency, fiscal_year, indicator) %>%
 summarise(across(where(is.double), sum, na.rm = TRUE)) %>%
 ungroup()

calc_achievement(df_msd_agg)

df_msd_agg %>%
 reshape_msd("quarters") %>%
 calc_achievement() 
## End(Not run)

ICPI/ICPIutilities documentation built on July 27, 2021, 5:19 p.m.