Nothing

```
modOverlap <- function(pred1, pred2, na.rm = TRUE) {
# version 1.3 (18 Oct 2019)
stopifnot(length(pred1) == length(pred2),
#pred1 >= 0 && pred1 <=1,
#pred2 >= 0 && pred2 <=1
min(c(pred1, pred2), na.rm = TRUE) >= 0,
max(c(pred1, pred2), na.rm = TRUE) <= 1
)
p1 <- pred1 / sum(pred1, na.rm = na.rm)
p2 <- pred2 / sum(pred2, na.rm = na.rm)
SchoenerD <- 1 - 0.5 * sum(abs(p1 - p2), na.rm = na.rm)
HellingerDist <- sqrt(sum((sqrt(p1) - sqrt(p2))^2, na.rm = na.rm))
WarrenI <- 1 - ((HellingerDist^2) / 2)
list(SchoenerD = SchoenerD,
WarrenI = WarrenI,
HellingerDist = HellingerDist
)
} # end modOverlap function
```

**Any scripts or data that you put into this service are public.**

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.