"portpirie"<-
structure(.Data = list(Year = c(1923, 1924, 1925, 1926, 1927, 1928, 1929, 1930, 
	1931, 1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1940, 1941, 1942, 
	1943, 1944, 1945, 1946, 1947, 1948, 1949, 1950, 1951, 1952, 1953, 1954, 
	1955, 1956, 1957, 1958, 1959, 1960, 1961, 1962, 1963, 1964, 1965, 1966, 
	1967, 1968, 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 
	1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987), "Sea Level" = c(
	4.03, 3.83, 3.65, 3.88, 4.01, 4.08, 4.18, 3.8, 4.36, 3.96, 3.98, 4.69, 
	3.85, 3.96, 3.85, 3.93, 3.75, 3.63, 3.57, 4.25, 3.97, 4.05, 4.24, 4.22, 
	3.73, 4.37, 4.06, 3.71, 3.96, 4.06, 4.55, 3.79, 3.89, 4.11, 3.85, 3.86, 
	3.86, 4.21, 4.01, 4.11, 4.24, 3.96, 4.21, 3.74, 3.85, 3.88, 3.66, 4.11, 
	3.71, 4.18, 3.9, 3.78, 3.91, 3.72, 4, 3.66, 3.62, 4.33, 4.55, 3.75, 
	4.08, 3.9, 3.88, 3.94, 4.33)), class = "data.frame", row.names = c("1", 
	"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", 
	"15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", 
	"27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", 
	"39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", 
	"51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", 
	"63", "64", "65"))