R/discounting.model.parameters.R

discounting.model.parameters <- function(model)
{
  parameters <- list('exponential' = c('a', 'gamma', 'delta'),
                     'generalized-hyperbolic' = c('a', 'gamma', 'alpha', 'beta'),
                     'concave-waiting' = c('a', 'gamma', 'delta', 'alpha', 'eta'))
  
  return(parameters[[model]])
}
johnmyleswhite/BehavioralEconomics documentation built on May 19, 2019, 5:17 p.m.