# long format as required by mlogit
long_mlogit <- mlogit.data(github_example, shape="wide",
  varying=1:6,
  choice="choice_with_6_alternative")

# fitting the probit model
probit <- mlogit(choice_with_6_alternative ~ random_utility,
  data=long_mlogit,
  probit=TRUE
  )

# fitting the probit model without intercept

probit_wo_int <- mlogit(choice_with_6_alternative ~ random_utility|0,
  data=long_mlogit,
  probit=TRUE)


# fitting a legit model

logit <- mlogit(choice_with_6_alternative ~ random_utility,
  data=long_mlogit
  )