* PS7.1, using DATA7-1, for example in Section 7.1 read(data7-1) WAGE D ols WAGE D gen1 n=$n genr nm=sum(D) genr wall=sum(WAGE) genr nf=n-nm genr wm=sum(WAGE*D) genr wf=sum(WAGE*(1-D)) smpl 49 49 genr wbar=wall/n genr mbar=wm/nm genr fbar=wf/nf print wbar nm mbar nf fbar stop