added function to calculate 4th order lm parameters by project type
se = F in stat smooth for the plots. makes no sense with this data)
superficial change to helper function
lined up predictors and outcomes in labeling, and collapsed double for loops to single.