title 'TV rating data';
options ls=72;
data tv;
	input lead news @@;
	label lead = 'Rating of lead-in show'
	news = 'Rating of news show';
	even = mod(_n_-1,2);
	obs = int((_n_+1)/2) + (15*even);
datalines;
2.5  3.8   5.5  4.35
2.7  4.1   5.7  4.15
2.9  5.8   5.9  4.85
3.1  4.8   6.1  6.2
3.3  5.7   6.3  3.8
3.5  4.4   6.5  7.0
3.7  4.8   6.7  5.4
3.9  3.6   6.9  6.1
4.1  5.5   7.1  6.5
4.3  4.15  7.3  6.1
4.5  5.8   7.5  4.75
4.7  3.8   2.5  1.0
4.9  4.75  2.7  1.2
5.1  3.9   7.3  9.5
5.3  6.2   7.5  9.0
;
*proc print;
proc univariate plot;
 var lead;

proc reg data=tv;
	model news = lead;

proc reg data=tv;
	where obs < 27;
	model news = lead;