GMACRO

CHAP16.MAC

Set c1

1( 1 : 6 / 5 )10

End.

Set c2

1( 1.1 : 5.85 / .25 )1

End.

do k1=1:100

Random 20 c3;

Normal 0.0 1.0.

Let c4 = c1+c3

Let c5 = c2+c3

Regress c4 1 c1;

Coefficients c6;

Constant;

Brief 2.

let c7(k1)=c6(1)

let c8(k1)=c6(2)

erase c6

Regress c5 1 c2;

Coefficients c6;

Constant;

Brief 2.

let c9(k1)=c6(1)

let c10(k1)=c6(2)

erase c6

enddo

name c7 'enddint'

name c8 'enddslo'

name c9 'disdint'

name c10 'distslo'

describe c7 c9 c8 c10;

mean;

Stdev;

N.

ENDMACRO