View source: R/CollectiveModelMethods.R
Layer_Mean.PGP_Model | R Documentation |
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)
CollectiveModel |
PGP_Model object. |
Cover |
Numeric. Cover of the reinsurance layer. Use |
AttachmentPoint |
Numeric. Attachment point of the reinsurance layer. |
The expected loss of the layer Cover
xs AttachmentPoint
for the given CollectiveModel
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.