R/fct_expGrowth.R

Defines functions fct_expGrowth

fct_expGrowth<-function(size,rate,periods,dayWeek='d',friday=TRUE) {
  if (dayWeek=="d") {
    size*(1+rate/(4+friday))^(periods)
  } else {
    size*(1+rate)^(periods)
  }
}
genobobeno/trademgmt documentation built on July 27, 2020, 7:29 a.m.