最初に、元の図2から手動で値を抽出し、生データの最初の目視検査にバイアスをかける色や回帰線なしでデータをプロットします。
year <- c(1968, 1970, 1973, 1975, 1978, 1979, 1980, 1981, 1982,
1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
1992, 1994, 1993, 1995, 1996, 1998, 1997, 1999, 2000,
2001, 2002, 2003, 2004, 2005, 2006)
age <- c(111, 111, 112, 111, 111, 110, 111, 113, 113, 113, 111,
114, 113, 114, 114, 112, 112, 112, 114, 115, 117, 112,
114, 115, 121, 119, 114, 115, 115, 114, 113, 114, 112)
plot(year,age,xlab="Year",
ylab="Yearly maximum reported age at death (years)",
pch=20,cex=2,ylim=c(108,124),xlim=c(1960,2010))
私達は手に入れました:
そして、図6のデータについても同じようにします(上記の質問で示したとおり)。
age <- c(113, 109, 109, 110, 113, 109, 110, 111, 111, 111,
112, 112, 113, 111, 111, 113, 113, 113, 114, 115,
113, 114, 122, 119, 117, 114, 115, 115, 114, 114,
115, 116, 115, 115, 114, 114, 116, 116, 117)
year <- c(1954, 1957, 1958, 1958, 1963, 1964, 1965, 1967,
1968, 1970, 1975, 1972, 1976, 1976, 1977, 1980,
1981, 1982, 1984, 1985, 1986, 1987, 1997, 1998,
1998, 1999, 2001, 2001, 2002, 2003, 2006, 2006,
2008, 2007, 2010, 2011, 2011, 2012, 2015)
plot(year,age,xlab="Year",
ylab="MRAD from GRG",
pch=20,cex=2,ylim=c(108,124),xlim=c(1950,2020))
単純な線形回帰モデルは、著者が提案したあまり簡潔ではない変化点モデルに挑戦する自然な候補になると思われます。実際、Philipp BerensとTom Wallisはそのようにして、再分析をgithubに公開しました:https : //github.com/philippberens/lifespan