# PS3.5 using DATA3-1, for Example 3.9
open data3-1
ols price 0 sqft 
# regress sqft against price
ols sqft 0 price 
smpl 1 1
# retrieve estimated constant term
genr astar = $coeff(0)
# retrieve estimated slope term
genr bstar = $coeff(price)
# calculate new intercept and slope and print all variables
genr aprime = -astar/bstar
genr bprime = 1/bstar
print astar bstar aprime bprime