get_premiums {reinsureR}

Get premiums

Description

get_premiums gets the premiums table of a Claims (Claims-class) object.

Usage

get_premiums(object)

## S4 method for signature 'Claims'
get_premiums(object)

Arguments

object

The object to display

Examples

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)
get_premiums(claims)