Additive model example, with plotting in ggplot2