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.

b) Create a scatter plot that puts the proportion of blowdowns in each species on the y-axis and the logarithm of average diameter, log(a), on the x-axis. You can compute the blowdown proportion in each species using aggregate (Blowdown$y, by=list (Blowdown$spp),FUN=mean)$x and the average diameter using aggregate(Blowdown$d, by=list (Blowdown$spp),FUN=mean)$X Comment on whether the sigmoid curve of logistic regression appears to fit the data in your scatter plot. b) Create a scatter plot that puts the proportion of blowdowns in each species on the y-axis and the logarithm of average diameter, log(a), on the x-axis. You can compute the blowdown proportion in each species using aggregate (Blowdown$y, by=list (Blowdown$spp),FUN=mean)$x and the average diameter using aggregate(Blowdown$d, by=list (Blowdown$spp),FUN=mean)$X Comment on whether the sigmoid curve of logistic regression appears to fit the data in your scatter plot