got Model 1 running; added R code to plot preds