Composition function for use in `sample_vuln`

, does a simple
compare of all threat events where the threat capability (TC) is greater
than the difficulty (DIFF).

`select_loss_opportunities(tc, diff, n = NULL, ...)`

## Arguments

- tc
Threat capability (as a percentage).

- diff
Difficulty (as a percentage).

- n
Number of samples to generate.

- ...
Optional parameters (currently ignored).

## Value

List containing boolean values of length TC (as a vector) and details (as a list).

## Examples

```
threat_capabilities <- c(.1, .5, .9)
difficulties <- c(.09, .6, .8)
select_loss_opportunities(threat_capabilities, difficulties)
#> $samples
#> [1] TRUE FALSE TRUE
#>
#> $details
#> $details$mean_tc_exceedance
#> [1] 0.055
#>
#> $details$mean_diff_exceedance
#> [1] 0.1
#>
#>
```