(c) Based on the R results of TRead in Appendix 2, (i) calculate the coefficient of variation. (ii) find the 5% trimmed mean. (iii) Determine if there is/are any outlier(s). Show your calculation.(d) The frequency distribution in Appendix 2 for TRead from R is revised as the following cumulative frequency distribution: Time Spent on Reading (hrs/week) Cumulative Frequency 0.5 - summary (DSet) EScore TRead Min . : 8. 00 Min. 1. 00 1st Qu. : 41 .25 Ist Qu. : 7.75 Median : 55.50 Median :10.00 Mean : 54 . 10 Mean : 10 . 80 3rd Qu. : 67.25 3rd Qu. : 14. 00 Max . : 97 . 00 Max . : 29. 00 > var (DSet$EScore) [1] 488.3487 > var (DSet $TRead) [1] 38.93333 > quantile (DSet$TRead, c (0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9)) 108 208 30% 408 50% 60% 70% 80% 90% 2. 9 5.6 8.0 10.0 10.0 12.0 13.3 14.0 17.3 > DDSal=DSet$DSal > breaks=seq (1 . 45, 16.15, by=2.1) > breaks [1] 1. 45 3. 55 5. 65 7.75 9. 85 11. 95 14. 05 16.15 > DTRead=DSet$TRead > breaks=seq (0 . 5, 30.5, by=5) > breaks [1] 0 . 5 5.5 10.5 15.5 20.5 25.5 30.5 > DTRead. cut=cut (DTRead, breaks, right=FALSE) > DTRead. freq=table (DTRead . cut) cbind (DTRead . freq) DTRead . freq 0. 5, 5.5) 8 [5. 5, 10.5) 13 [10 . 5, 15.5) 12 [15 . 5, 20.5) 4 [20 . 5, 25.5) N [25 . 5, 30.5)