Cycle discounting

Usage

disc_cycle(
  lcldr = 0.035,
  lclprvtime = 0,
  cyclelength,
  lclcurtime,
  lclval,
  starttime = 0
)

Arguments

lcldr

The discount rate

lclprvtime

The time of the previous event in the simulation

cyclelength

The cycle length

lclcurtime

The time of the current event in the simulation

lclval

The value to be discounted

starttime

The start time for accrual of cycle costs (if not 0)

Value

Double based on cycle discounting

Examples

disc_cycle(lcldr=0.035, lclprvtime=0, cyclelength=1/12, lclcurtime=2, lclval=500,starttime=0)
#> [1] 12079.88