Expected Loss of a Reinsurance Layer
Calculates the expected loss of a reinsurance layer for a PPP_Model
## S3 method for class 'PPP_Model' Layer_Mean(CollectiveModel, Cover = Inf, AttachmentPoint = 0)
CollectiveModel
: PPP_Model object.Cover
: Numeric. Cover of the reinsurance layer. Use Inf
for unlimited layers.AttachmentPoint
: Numeric. Attachment point of the reinsurance layer.The expected loss of the layer Cover
xs AttachmentPoint
for the given CollectiveModel
PPPM <- PiecewisePareto_Match_Layer_Losses(Example1_AP, Example1_EL) PPPM Example1_Cov <- c(diff(Example1_AP), Inf) Example1_AP Example1_Cov Example1_EL Layer_Mean(PPPM, Example1_Cov, Example1_AP)