sample 4000 from 4790. COMPUTE teatot=0. EXECUTE . LOOP lpcount = 1 to 9. COMPUTE rjlrand = RV.UNIFORM(0,1) . RECODE rjlrand (0 thru 0.136=14) (0.136 thru 0.374=15) (0.374 thru 0.656=16) (0.656 thru 0.731=17) (0.731 thru 0.794=18) (0.794 thru 0.818=19) (0.818 thru 0.831=20) (0.831 thru 0.866=21) (0.866 thru 0.892=22) (0.892 thru 0.940=25) (0.940 thru 0.953=35) (0.953 thru 1=45) INTO tea2 . COMPUTE teatot = teatot + tea2. END LOOP. COMPUTE teaav = teatot / 9. EXECUTE.