Layer_Mean.PGP_Model function

Expected Loss of a Reinsurance Layer

Calculates the expected loss of a reinsurance layer for a PGP_Model

## S3 method for class 'PGP_Model'
Layer_Mean(CollectiveModel, Cover = Inf, AttachmentPoint = 0)

Arguments

• CollectiveModel: PGP_Model object.
• Cover: Numeric. Cover of the reinsurance layer. Use Inf for unlimited layers.
• AttachmentPoint: Numeric. Attachment point of the reinsurance layer.

Returns

The expected loss of the layer Cover xs AttachmentPoint for the given CollectiveModel

Examples

PGPM <- PGP_Model(2, 1000, 1, 2, dispersion = 2)
PGPM
Example1_Cov <- c(diff(Example1_AP), Inf)
Example1_AP
Example1_Cov
Example1_EL
Layer_Mean(PGPM, Example1_Cov, Example1_AP)