Visually compare two models

`visual_compare(model1, model2, ratio = FALSE)`

- model1
a

`predictive`

object- model2
a

`predictive`

object- ratio
show ratio rather than comparison (default: FALSE)

A `ggplot2`

object

```
# define two models
data_model <- likelihood(family = "normal", .5, 1)
h0_mod <- prior(family = "point", point = 0)
h1_mod <- prior(family = "normal", mean = 0, sd = 10)
m0 <- extract_predictions(data_model * h0_mod)
m1 <- extract_predictions(data_model * h1_mod)
# visually compare the model
visual_compare(m0, m1)
# plot the ratio of the two model predictions
visual_compare(m0, m1, ratio = TRUE)
```