R/compute_NPV.R

In naomitague/rainbow:

#' compute_NPV
#'
#' compute net present value
#' @param value/cost ($)
#' @param time in the future that cost/value occurs (years)
#' @param discount rate
#' @return value in $


compute_NPV = function(value, time, discount) {
  result = value / (1 + discount)**time
  return(result)
}