out patents.log
data obsno year cusip ardssic scisect logk sumpat pat pat1 pat2 pat3 pat4 &
     logr logr1 logr2 logr3 logr4 logr5
read patents.dat
case first=cusip second=ardssic
yvar pat
family p
constant cons
factor year fyear
mass first=96 second=96
ari a
fit logr logr1 logr2 logr3 logr4 logr5 fyear logk cons
dis m
dis e
stop

