# NOT RUN {
library(dplyr)
library(sf)
library(ggplot2)
# Load in posterior parameter example
# and growth data to compare to
data(comp_bayes_lm_ex, growth_ex)
predictions <- focal_vs_comp_ex %>%
mutate(growth_hat = predict(comp_bayes_lm_ex, focal_vs_comp_ex))
predictions %>%
ggplot(aes(growth, growth_hat)) +
geom_point() +
geom_abline(slope = 1, intercept = 0)
# }
Run the code above in your browser using DataLab