reinsureR (version 0.1.0)

get_commissions: Get commissions

Description

get_commissions gets the commissions induced by QS treaties applied to Claims (Claims-class) object.

Usage

get_commissions(object)
# S4 method for Claims
get_commissions(object)

Arguments

object

The object to display

Examples

# NOT RUN {
c <- data.frame(year = unlist(sapply(2000:2017, function(x) rep(x, rpois(1,3)))))
c$amount <- pmax(rnorm(nrow(c), 200000, 100000), 0)
p <- aggregate(amount ~ year, c, sum)
claims <- claims(c, p)
treaty_1 <- qs(0.8, com = 0.25)
claims <- apply_treaty(claims, treaty_1)
get_commissions(claims)

# }