*Example 1;

data mydata;
    x=5;
    y=4;
    z=x+y;
proc print data=mydata;
run;





*Example 2;

data mydata;
    input x y;
    datalines;
    1 4
    3 8
    5 9
    ;
proc print data=mydata;
run;





*Example 3;

data mydata;
    input Name $ Gender $ Age ;
    datalines;
    Alice Female 25
    Bob Male 26
    Charles Male 42
    ;
proc print data=mydata;
run;    





*Lab2 using proc reg.

data lab2;
    infile 'T:\Fall 2012\Math 505\R Files\Lab2Data.txt' dlm=',';
    input Y X1 X2 X3;
proc reg data=lab2;
    model Y=X1 X2 X3;
run;





*Working with matrices using proc iml.

proc iml;
    A={1 2,
        3 4};
    B={5 6,
        7 8};
    C=A*B;
    D=A`;
    E=inv(A);
print A B C D E;
run;
quit;   





*Lab 2 using proc iml.

data lab2;
    infile 'T:\Fall 2012\Math 505\R Files\Lab2Data.txt' dlm=',';
    input Y X1 X2 X3;
run;
proc iml;
    use lab2;
    read all;
    X0=repeat(1,100,1);
    X=X0 || X1 || X2 || X3;
    b=solve(X`*X,X`*Y);
    Yhat=X*b;
    e=Y-Yhat;
    print b;
    call pgraf(Yhat || Y);
    call pgraf(Yhat || e);
run;
quit;