---
title: "Worked Example"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Worked-Example}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

A worked example follows to serve as motivation for the use case.

TODO

```{r }
library(eltr)

raw_elt <-example_elt

```

### Calculate ELT parameters and modify raw ELT table


```{r}
elt <- create_elt(raw_elt, ann_rate="rate", mu="mean", sdev_i = "sdevi" , sdev_c = "sdevc", expval = "exp")

elt
```

### apply Monte Carlo simulation to turn ELT into YLT

```{r}
ylt <- create_ylt(elt, sims=10 ,ann_rate = "rate" , event_id = "id", expval = "exp" , mu ="mean")

ylt
```

### apply insurance structure to calculate limited losses

```{r}

# Layer 500 xs 50

ylt[ , layer1_loss := layer_loss(Loss, Excess = 50 , Limit = 500  ) ] 

ylt
```

### Summarise losses by year and calculated average expected loss

```{r}


ann <-ylt[, lapply( .SD , sum), by=Year, .SDcols = c("Loss","layer1_loss") ] 

ann

expected_loss <- ann[ , lapply(.SD, mean) , .SDcols = c("Loss","layer1_loss")      ]

expected_loss


```

### Calculate OEP

```{r}

ep <-create_oep_curve(ann , y= "Year", z="Loss")
ep

```



### calculate AAL and OEP