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)
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.