gg.bru_prediction function

Geom for predictions