This needs to be done in R.

You are interested in the probability of an individual common periwinkle snail (Littorina littorea) surviving one day after being exposed excessive heat shock to test this species adaptive capacity to future climate scenarios. You design an experiment where you expose 100 snails to a temperature of 40 ^oC for 6 hours (the time of a tidal cycle) and record if each snail is alive or dead after 24 hours. The results are 45 snails died.

1. Plot a probability distribution given your null hypothesis (include below).
2. Run the test (copy and paste your R code). Was your experimental result significant when using an of .05? How about using an of .01?
3. Calculate the P-value using the PDF and the CDF? (2pts)
4. What is the most likely number of snails dying under the null hypothesis?