data grasshopper ; input neggs wt @@ ; cards ; 27 2.1 32 2.3 39 2.4 48 2.5 59 2.9 67 3.1 71 3.2 65 3.3 73 3.4 67 3.4 78 3.5 72 3.5 81 3.5 74 3.6 83 3.6 75 3.6 84 3.6 77 3.7 83 3.7 76 3.7 82 3.8 75 3.9 78 4.0 77 4.3 75 4.4 73 4.7 71 4.8 70 4.9 68 5.0 65 5.1 ; proc print ; run ; proc corr data = grasshopper ; var neggs wt ; run ; proc loess data= grasshopper ; ods output OutputStatistics = grfit ; model neggs = wt / degree=1 smooth = 0.5 ; run; proc sort data = grfit; by wt ; run; symbol1 color=black value=dot ; symbol2 color=blue interpol=spline value=none; proc gplot data= grfit; plot depvar*wt pred*wt / overlay ; run; quit;