*  PS3.5 using data file DATA3-1, for Example 3.9  
read(data3-1) price sqft 
ols price  sqft  
*  regress sqft against price  
ols sqft  price / coeff=beta 
smpl 1 1 
*  retrieve estimated constant term  
genr astar = beta(2)
*  retrieve estimated slope term  
genr bstar = beta(1)
*  calculate new intercept and slope and print all variables  
genr aprime = -astar/bstar
genr bprime = 1/bstar
print astar bstar aprime bprime
stop