The survival times in days of 72 guinea pigs after they were injected with tubercle bacilli are stored in the vector object survival.

Survival Times: 45,45,53,56,56,57,58,66,67,73,74,79,80,80,81,81,81,82,83,83,84,88,89,91,91,92,92,97,99,99,100,100,101,102,102,102,103,104,107,108,109,113,114,118,121,123,126,128,137,138,139,144,145,147,156,162,174,178,179,184,191,198,211,214,243,249,329,380,403,511,522,598

In R ,

(a) Set up the screen to take a 2 2 array of plots by using par(mfrow=c(2,2)).

(b) Rename the dataset as su.

(c) Obtain a box-plot representation of the data su. Is the data set skewed? Too skewed? Obtain a normal qq-plot for this data. What does this plot indicate?