R/replacement_rate.R

In HughParsonage/CRIMpp: Model Retirement Incomes.

#' @title Replacement rate
#' @description Replacement rate given initial conditions.
#' @param wage_ratio AWOTE multiple.
#' @param policy A string representing a policy world.
#' @return The replacement rate.
#' @useDynLib CRIMpp
#' @importFrom Rcpp sourceCpp
#' @importFrom Rcpp evalCpp




replacement_rate <- function(wage_ratio, policy = "current"){


  income_in_retirement / income_in_working_life
}