## Joey Nichols
## Problem Set 9

library(mlogit)
library(AER)


data.for.logit = mlogit.data(data,chid.var = "situation",choice = "choice",
                                     alt.levels = c("o1","o2","o3"), shape = "long")

mod = mlogit(choice ~ price + cost + hybrid  +electric + range + highperf + medperf
                | 0 , data = data.for.logit)