```r
cbc.mlogit <-
  mlogit.data(data    = cbc.df, 
              choice  = "choice",
              shape   = "long",   
              varying = 3:6,
              id.var  = "resp.id",
              alt.levels = paste("pos", 1:3))
```