Simulations in SAS

R-Squared

data Rsquared;
do i=1 to 1000 by 1;
x=rand("Normal");
y=1-2*x + 1*x*x + rand("Normal");
output;
end;
proc sgplot data=Rsquared;
scatter x=x y=y;
run;
proc reg data=Rsquared plots=fitplot;
model y=x;
run;

data Rsquared;
do i=1 to 1000 by 1;
x=rand("Normal");
y=1-2*x + 0.5*x*x + rand("Normal");
output;
end;
proc sgplot data=Rsquared;
scatter x=x y=y;
run;
proc reg data=Rsquared plots=fitplot;
model y=x;
run;