Use R or SAS to solve this problem

The data sorethroat.txt shows a study about Y = whether a patient having surgery with general anesthesia experienced a sore throat on waking (0 = no, 1 = yes) as a function of the D = duration of the surgery (in minutes) and the T = type of device used to secure the airway (0 = laryngeal mask airway, 1 = tracheal tube). Using this data set, compete the following.

1)Estimate and state a logistic regression model for the probability of a sore throat using duration and device type as explanatory variables without transformations or interactions.

2)Perform LRTs to evaluate the importance of each explanatory variable in the model. Use the Anova() function in your calculations. Make sure to fully state the hypotheses.

3)Interpret the explanatory variables in the model through the use of odds ratios and their corresponding 95% Wald confidence intervals. For the duration variable, use c = 20.

D T Y 45 0 0 15 0 0 40 0 1 83 1 1 90 1 1 25 1 1 35 0 1 65 0 1 95 0 1 35 0 1 75 0 1 45 1 1 50 1 0 75 1 1 30 0 0 25 0 1 20 1 0 60 1 1 70 1 1 30 0 1 60 0 1 61 0 0 65 0 1 15 1 0 20 1 0 45 0 1 15 1 0 25 0 1 15 1 0 30 0 1 40 0 1 15 1 0 135 1 1 20 1 0 40 1 0