04-application.Rmd

# Applications

This section might be called "Results" instead of "Applications," depending
on what it is that you are working on. But you'll probably say something like 
"The initial model estimation results are given in Table \@ref(tab:estimation-results)."
That table is created with the `modelsummary()` package and function.

```{r estimation}
model1 <- mlogit(choice ~ type + price | -1, data = car_mlogit)
model2 <- update(model1, .~. + range)

models <- list("Model 1" = model1, "Model 2" = model2)
```


```{r estimation-results}
modelsummary(models, estimate = "{estimate} ({statistic})",
             title = "Model Estimation Results")
```

With those results presented, you can go into a discussion of what they mean.
first, discuss the actual results that are shown in the table, and then any 
interesting or unintuitive observations.

## Additional Analysis

Usually, it is good to use your model for something.

  - Hypothetical policy analysis
  - Statistical validation effort
  - Equity or impact analysis
  
If the analysis is substantial, it might become its own top-level section.