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]])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.