Use the data file Blowdown in RStudio to answer the question. Code to access data is library(alr4) data("Blowdown"). Please only answer if you know how to use R Program.

a) Fit the logistic regression model with function y log(a) + s + log(a):s for the species spp = paper birch only. The variable s is a measure of the storm severity. Produce the Anova table and summarize the results. b) Estimate the probability of blowdown for paper birch trees that have diameter d = 21 cm and severity measure s = 0.5. a) Fit the logistic regression model with function y log(a) + s + log(a):s for the species spp = paper birch only. The variable s is a measure of the storm severity. Produce the Anova table and summarize the results. b) Estimate the probability of blowdown for paper birch trees that have diameter d = 21 cm and severity measure s = 0.5