/* ?
? Data for this application are in SPRP.LPJ
?
? Application of revealed/stated preference data
? Uses nested logit to handle scaling.
? Sample is also choice based, as shown by weights.
?
? Documented in several Hensher papers from ITS in Sydney.
?
? Choice variable is CHOSEN
? Number of choices in choice set is CSET
? Specific choices from master set given by ALTIJ
? FCOST = fuel cost
? AUTOTIME = time spent commuting by car.
? Numerous other variables in the data set.
?
*/
NLOGIT
 ;lhs=chosen,cset,altij
 ;choices=RPDA,RPRS,RPBS,RPTN,SPDA,SPRS,SPBS,SPTN,SPLR,SPBW
         /.592,.208,.089,.111, 1.0, 1.0, 1.0, 1.0,1.0,1.0
 ;tree=Commute [  rp  (RPDA,RPRS,RPBS,RPTN),
   spda(SPDA), sprs(SPRS),spbs(SPBS),sptn(SPTN),
               splr(SPLR),spbw(SPBW)]
    ;ivset: (rp)=[1.0]  ;ru1 ;maxit=150
    ;model:
U(RPDA) = rdasc  + invc*fcost+tmrs*autotime /
U(RPRS) = rrsasc + invc*fcost+tmrs*autotime /
U(RPBS) = rbsasc + invc*mptrfare+mtpt*mptrtime/
U(RPTN) =          cstrs*mptrfare+mtpt*mptrtime/
U(SPDA) = sdasc  + invc*fueld  + tmrs*time+cavda*carav /
U(SPRS) = srsasc + invc*fueld + tmrs*time/? cavrs*carav/
U(SPBS) =          invc*fared + mtpt*time +acegt*spacegtm/
U(SPTN) = stnasc + invc*fared + mtpt*time+acegt*spacegtm/
U(SPLR) = slrasc + invc*fared + mtpt*time+acegt*spacegtm/
U(SPBW) = sbwasc + invc*fared + mtpt*time+acegt*spacegtm$