added function to extract lines for plotting model 2 regression with ggplot