STAT 845 @ UW by Prof. M. Zhu

Exercise 5.14v23

( Data from Table 5.2 )
R: scan('https://www.math.uwaterloo.ca/~m3zhu/teaching/stat845/data/Data_LondonTimes.txt',sep=',')