grade = [1 1.6 1.2 2.1 2.6 1.8 2.6 2 3.2 2.6 3 3.6 1.9];
iq = [100 112 118 119 122 125 127 130 132 134 136 138 125];
studytime=[8 10 6 13 14 6 13 12 13 11 12 18 7];
s=regstats(grade', [iq' studytime']);
subplot(2,1,2)
plot(grade, studytime,'x')
lsline 
subplot(2,1,1)
plot(grade, iq,'o')
lsline