## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(greenbook)

## -----------------------------------------------------------------------------
gb_data_versions()

## -----------------------------------------------------------------------------
gb_stpr(c(10, 30, 31, 75, 76, 200, 300))

## -----------------------------------------------------------------------------
gb_schedule_table()

## -----------------------------------------------------------------------------
gb_discount_factor(0:5)
gb_discount_factor(c(0, 30, 31, 75, 76))

## -----------------------------------------------------------------------------
df_30 <- gb_discount_factor(30)
df_31 <- gb_discount_factor(31)
df_31 / df_30  # 1 / 1.030 = 0.9709, the year-31 single-period factor

## -----------------------------------------------------------------------------
costs <- c(100, rep(0, 9))
benefits <- c(0, rep(30, 9))
appraisal <- gb_npv(benefits - costs, base_year = 2024)
appraisal

## -----------------------------------------------------------------------------
summary(appraisal)

## -----------------------------------------------------------------------------
gb_eanc(appraisal)

## -----------------------------------------------------------------------------
gb_real(nominal_values = c(100, 110, 120),
        year = 2020:2022,
        base_year = 2024)

## -----------------------------------------------------------------------------
gb_rebase(c(100, 200, 300), from = 2020, to = 2024)

## -----------------------------------------------------------------------------
gb_deflator(from = 2020, to = 2024)