Please show R code

The file AutoAccident.dat contains data on severity of drivers injuries in auto accidents (Injury: 1=Not Severe, 2=Severe), along with the type of accident (Type: 1=Collision, 2=Rollover), the type of automobile (Car: 1=Small, 2=Standard), and whether or not the driver was ejected from the vehicle during the accident (Ejected: 1=No, 2=Yes). The data are also available with qualitative descriptors at AutoAccident.csv.

Car,Ejected,Injury,Type,Count Small,No,Not Severe,Collision,350 Small,No,Severe,Collision,150 Small,No,Not Severe,Rollover,60 Small,No,Severe,Rollover,112 Small,Yes,Not Severe,Collision,26 Small,Yes,Severe,Collision,23 Small,Yes,Not Severe,Rollover,19 Small,Yes,Severe,Rollover,80 Standard,No,Not Severe,Collision,1878 Standard,No,Severe,Collision,1022 Standard,No,Not Severe,Rollover,148 Standard,No,Severe,Rollover,404 Standard,Yes,Not Severe,Collision,111 Standard,Yes,Severe,Collision,161 Standard,Yes,Not Severe,Rollover,22 Standard,Yes,Severe,Rollover,265

Car Ejected Injury Type Count 1 1 1 1 350 1 1 2 1 150 1 1 1 2 60 1 1 2 2 112 1 2 1 1 26 1 2 2 1 23 1 2 1 2 19 1 2 2 2 80 2 1 1 1 1878 2 1 2 1 1022 2 1 1 2 148 2 1 2 2 404 2 2 1 1 111 2 2 2 1 161 2 2 1 2 22 2 2 2 2 265

Analyze the data treating severity of injury as the response variable. Include the following pieces in your analysis:

1. (a) Fit a model with main effects and a model with all two way interactions. [10 pts]

2. (b) Report the goodness-of-fit test for both models. [10 pts]

3. (c) Use both the likelihood ratio test and Wald test to compare the model with just main effects against the model with all two-way interactions. What do you conclude? [10 pts]

4. (d) Report the estimates, standard errors, and Wald tests associated with each parameter in the main effects model. Give a table with the conditional odds ratios for each variable, along with 95% confidence intervals (be sure to clearly state what the baseline group is for each odds ratio). [Hint: the connection between conditional odds ratio and the value of parameter] [20 pts]