Discrete Choice Analysis With R