major_earthquakes <-
structure(list(year = c(1902L, 1902L, 1903L, 1903L, 1905L, 1906L, 
1906L, 1906L, 1906L, 1907L, 1908L, 1909L, 1912L, 1914L, 1915L, 
1917L, 1918L, 1920L, 1923L, 1923L, 1923L, 1925L, 1927L, 1927L, 
1929L, 1930L, 1930L, 1931L, 1931L, 1931L, 1933L, 1933L, 1933L, 
1934L, 1935L, 1935L, 1939L, 1939L, 1940L, 1942L, 1943L, 1943L, 
1944L, 1944L, 1945L, 1945L, 1946L, 1946L, 1946L, 1948L, 1948L, 
1949L, 1949L, 1950L, 1951L, 1953L, 1954L, 1956L, 1957L, 1957L, 
1960L, 1960L, 1962L, 1963L, 1964L, 1966L, 1966L, 1966L, 1968L, 
1969L, 1970L, 1970L, 1970L, 1971L, 1971L, 1972L, 1972L, 1974L, 
1974L, 1975L, 1975L, 1976L, 1976L, 1976L, 1976L, 1976L, 1976L, 
1977L, 1978L, 1980L, 1980L, 1981L, 1981L, 1982L, 1983L, 1985L, 
1986L, 1987L, 1988L, 1988L, 1989L, 1990L, 1990L, 1991L, 1991L, 
1992L, 1992L, 1992L, 1992L, 1992L, 1993L, 1994L, 1994L, 1995L, 
1995L, 1997L, 1997L, 1998L, 1998L, 1998L, 1999L, 1999L, 1999L
), month = c("April", "December", "April", "May", "April", "January", 
"March", "April", "August", "October", "December", "January", 
"August", "October", "January", "July", "February", "December", 
"March", "March", "September", "March", "March", "May", "May", 
"May", "July", "March", "April", "August", "March", "March", 
"August", "January", "April", "May", "January", "December", "November", 
"December", "September", "November", "January", "February", "January", 
"November", "May", "November", "December", "June", "October", 
"July", "August", "August", "August", "March", "September", "June", 
"July", "December", "February", "May", "September", "July", "March", 
"March", "March", "August", "August", "July", "January", "March", 
"May", "February", "May", "April", "December", "May", "December", 
"February", "September", "February", "May", "June", "July", "August", 
"November", "March", "September", "October", "November", "June", 
"July", "December", "October", "September", "October", "March", 
"August", "December", "October", "June", "July", "February", 
"October", "March", "March", "June", "June", "December", "September", 
"January", "June", "January", "May", "February", "May", "February", 
"May", "July", "January", "August", "September"), day = c(19L, 
16L, 28L, 28L, 4L, 31L, 16L, 18L, 17L, 21L, 28L, 23L, 9L, 3L, 
13L, 30L, 13L, 16L, 24L, 25L, 1L, 16L, 7L, 22L, 1L, 6L, 23L, 
31L, 27L, 10L, 2L, 10L, 25L, 15L, 21L, 30L, 25L, 26L, 10L, 20L, 
10L, 26L, 15L, 1L, 12L, 27L, 31L, 10L, 29L, 28L, 5L, 10L, 5L, 
15L, 2L, 18L, 9L, 10L, 2L, 13L, 29L, 21L, 1L, 26L, 27L, 7L, 22L, 
19L, 31L, 25L, 5L, 28L, 31L, 9L, 22L, 10L, 23L, 10L, 28L, 4L, 
6L, 4L, 6L, 25L, 28L, 16L, 24L, 4L, 16L, 10L, 23L, 11L, 28L, 
13L, 30L, 19L, 10L, 6L, 20L, 7L, 17L, 20L, 16L, 1L, 19L, 13L, 
15L, 28L, 28L, 12L, 30L, 17L, 6L, 16L, 27L, 28L, 10L, 4L, 30L, 
17L, 25L, 17L, 20L), intensity_richter = c(7.5, 6.4000000000000004, 
7, 5.7999999999999998, 7.5, 8.8000000000000007, 6.7999999999999998, 
7.7000000000000002, 8.5999999999999996, 8.0999999999999996, 7.2000000000000002, 
7.2999999999999998, 7.4000000000000004, 7, 7, 7.5, 7.4000000000000004, 
7.7999999999999998, 7.2999999999999998, 5.7000000000000002, 7.9000000000000004, 
7, 7.5999999999999996, 7.5999999999999996, 7.2000000000000002, 
7.2000000000000002, 6.5, 6, 5.7000000000000002, 8, 8.4000000000000004, 
6.2000000000000002, 7.5, 8.0999999999999996, 7.0999999999999996, 
7.5999999999999996, 7.7999999999999998, 7.7999999999999998, 7.2999999999999998, 
7.2999999999999998, 7.4000000000000004, 7.5999999999999996, 7.4000000000000004, 
7.4000000000000004, 7.0999999999999996, 8, 5.9000000000000004, 
7.2999999999999998, 8.0999999999999996, 7.2999999999999998, 7.2999999999999998, 
7.5, 6.7999999999999998, 8.5999999999999996, 5.7999999999999998, 
7.2999999999999998, 6.7999999999999998, 7.7000000000000002, 7.0999999999999996, 
7.0999999999999996, 5.7000000000000002, 9.5, 7.0999999999999996, 
6, 9.1999999999999993, 7, 6.9000000000000004, 6.7999999999999998, 
7.2999999999999998, 5.9000000000000004, 7.5, 6.9000000000000004, 
7.9000000000000004, 6.5999999999999996, 6.9000000000000004, 7.0999999999999996, 
6.2000000000000002, 6.7999999999999998, 6.2000000000000002, 7, 
6.7000000000000002, 7.5, 6.5, 7.0999999999999996, 7.5, 7.9000000000000004, 
7.2999999999999998, 7.2000000000000002, 7.7999999999999998, 7.7000000000000002, 
6.5, 6.9000000000000004, 7.2999999999999998, 6, 6.9000000000000004, 
8, 5.5, 7, 6.7999999999999998, 6.7999999999999998, 6.9000000000000004, 
7.4000000000000004, 7.7000000000000002, 6.7999999999999998, 7, 
6.7999999999999998, 6, 7.2999999999999998, 6.5, 7.5, 6.2000000000000002, 
6.7999999999999998, 6.7999999999999998, 6.9000000000000004, 7.5, 
6.0999999999999996, 7.2999999999999998, 5.9000000000000004, 6.5999999999999996, 
7, 6.0999999999999996, 7.5999999999999996, 7.5999999999999996
), area = c("Quezaltenango and San Marco", "Uzbekistan", "Malazgirt", 
"Gole", "Kangra", "Esmeraldas (off coast)", "Chia-i", "San Francisco", 
"Valparaiso", "Central", "Messina", "Silakhor", "Murefte", "Burdur", 
"Avezzano", "Yunnan", "Guangdong", "Gansu", "Sichuan", "Torbat-e Heydariyeh", 
"Yokohama", "Yunnan", "Tango", "Gansu", "Koppeh Dagh", "Salmas", 
"Irpinia", "Managua", "Border", "Xinjiang", "Sanriku", "Long Beach", 
"Sichuan", "Bihar", "Miao-Li", "Quetta", "Chillan", "Erzincan", 
"Vrancea", "Erbaa", "Tottori", "Ladik", "San Juan", "Gerede", 
"Mikawa", "Makran Coast", "Ustukran", "Ancash", "Honshu", "Fukui", 
"Ashgabat", "Khait", "Pelileo", "Assam", "Cosiguina", "Northwest", 
"Orleansville", "North ", "North ", "West", "Agadir", "South", 
"Northwest", "Skopje", "Alaska", "Hebei", "Hebei", "East ", "Northeast", 
"Guangdong", "Yunnan", "West", "Chimbote", "San Fernando Valley", 
"SE of Ankara", "South", "Managua", "", "North", "Haicheng", 
"East ", "", "Northeast", "Irian Jaya", "Tangshan", "Mindanao", 
"Northwest Border", "", "Northeast", "Northwest", "South", "South", 
"South", "W Arabian Peninsula", "East ", "Michoacan", "", "Border", 
"Border", "Spitak", "San Francisco", "West", "Luzon", "Border", 
"North ", "East ", "East ", "Landers", "Big Bear", "Flores Island", 
"Maharashtra", "Northridge", "Cauca", "Kobe", "Sakhalin Island", 
"Northwest", "North", "Hindu Kush", "Border", "Papua", "Armenia", 
"Izmit", "Taichung"), region = c("Guatemala", "Russia", "Turkey", 
"Turkey", "India", "Ecuador", "Taiwan", "United States", "Chile", 
"Asia", "Italy", "Iran", "Turkey", "Turkey", "Italy", "China", 
"China", "China", "China", "Iran", "Japan", "China", "Japan", 
"China", "Iran", "Iran", "Italy", "Nicaragua", "Armenia-Azerbaijan", 
"China", "Japan", "United States", "China", "India-Nepal", "Taiwan", 
"Pakistan", "Chile", "Turkey", "Romania", "Turkey", "Japan", 
"Turkey", "Argentina", "Turkey", "Japan", "Pakistan", "Turkey", 
"Peru", "Japan", "Japan", "Turkmenistan", "Tajikistan", "Ecuador", 
"India", "Nicaragua", "Turkey", "Algeria", "Afghanistan", "Iran", 
"Iran", "Morocco", "Chile", "Iran", "Yugoslavia", "United States", 
"China", "Chine", "Turkey", "Iran", "China", "China", "Turkey", 
"Peru", "United States", "Turkey", "Iran", "Nicaragua", "China", 
"Pakistan", "China", "Turkey", "Guatemala", "Italy", "New Guinea", 
"China", "Philippines", "Iran-Turkey", "Romania", "Iran", "Algeria", 
"Italy", "Iran", "Iran", "", "Turkey", "Mexico", "El Salvador", 
"Colombia-Ecuador", "India-Nepal", "Armenia ", "United States", 
"Iran ", "Philippines", "Pakistan-Afghanistan", "India ", "Turkey ", 
"Turkey", "United States", "United States", "Indonesia", "India", 
"United States", "Colombia ", "Japan", "Russia", "Iran", "Iran", 
"Afghanistan", "Afghanistan-Tajikistan", "New Guinea", "Colombia", 
"Turkey", "Taiwan"), deaths = c(2000L, 4700L, 3500L, 1000L, 19000L, 
1000L, 1250L, 3000L, 3882L, 12000L, 72000L, 5000L, 2800L, 4000L, 
32610L, 1800L, 1000L, 200000L, 3500L, 2200L, 142800L, 5800L, 
3020L, 40900L, 3800L, 2500L, 1404L, 2500L, 2800L, 10000L, 2990L, 
115L, 9300L, 10700L, 3270L, 30000L, 28000L, 32700L, 1000L, 1100L, 
1190L, 4000L, 8000L, 2790L, 1961L, 4000L, 1300L, 1400L, 1362L, 
3769L, 110000L, 12000L, 5050L, 1526L, 1000L, 1070L, 1250L, 2000L, 
1200L, 1130L, 12000L, 1655L, 12255L, 1100L, 131L, 1000L, 1000L, 
2529L, 12000L, 3000L, 10000L, 1086L, 700000L, 65L, 1000L, 5054L, 
5000L, 20000L, 5300L, 2000L, 2300L, 23000L, 1000L, 422L, 255000L, 
8000L, 5000L, 1500L, 15000L, 5000L, 2735L, 3000L, 1500L, 2800L, 
1342L, 9500L, 1000L, 1000L, 1000L, 25000L, 63L, 40000L, 1621L, 
1200L, 2000L, 4000L, NA, 3L, NA, 2500L, 9748L, 61L, 1000L, 5502L, 
1989L, 1000L, 1567L, 2323L, 4000L, 2183L, 1185L, 17118L, 2400L
)), row.names = c(NA, -123L), class = "data.frame")