R/Premiums.R

Defines functions ExponentialPremium

#you need the moment generating function of S. beta is the risk aversion coefficient.

ExponentialPremium <- function(beta, MGM){
  return(1/beta * MGM(beta))
}
lucazama/CollectiveRisk documentation built on July 25, 2020, 7:22 a.m.