0622a1r

Program commands in the Rats:

All 5 10
Open data c:\0622\0622.wk1
data(format=wks,org=obs) / y x

Set y1 = 100 / ( 100 - y )
Set x1 = 1 / x

Linreg y1 /
# constant x1
End