Untitled

# Predictions to study how relevant the quality attribute is in relation to the price
rows <- profiles[c(48, 33, 15, 36, 18), ]
predictions_2 <- predict.mnl(m1, rows)
tibble::tibble(head(predictions_2, ))
```