1.Consider the data set below.

mydata<-c(4, 5, 7, 9, 10, 12, 14, 16, 18, 23, 28, 33, 53, 77)

Enter the data into R (you can copy the command above, and paste it into R).

The quantile plot command is :qqnorm(mydata).Is this data set normally distributed?

What does the shapiro.test(mydata) command tell you?(Null hypothesis of this test is that the dataset you give it comes from a normal distribution).

If you conclude above that mydata is not normally distributed, then apply a log transform:

mydata2<-log(mydata)

and assess whether mydata2 is normally distributed with the Shapiro test.