Program commands in the Rats: 

CAL 1948 1 1                                                                 
All 5 1964:01                                                                
Open data c:\0725\0725.wk1    
data(format=wks,org=obs) / year nm ni p r 
                                                                             
Set m = nm / p * 100                                                         
Set y = ni / p * 100                                                         
                                                                           
log m / lnm 
log y / lny 
log r / lnr 

****Part A solution****
                                                                           
Linreg lnm / 
# constant lny lnr                                                    
                                                                             
****Part B solution****                                                      

Set my = m / y                                              
log my / lnmy

Linreg lnmy
# constant lnr

End

And then click here for the results