# https://data.giss.nasa.gov/gistemp/graphs/graph_data/Global_Mean_Estimates_based_on_Land_and_Ocean_Data/graph.txt
# 2023 partial year: https://data.giss.nasa.gov/gistemp/tabledata_v4/GLB.Ts+dSST.txt
# https://en.wikipedia.org/wiki/List_of_Presidents_of_the_United_States
structure(list(pres = c("Arthur", "Cleveland1", "Harrison", "Cleveland2",
"McKinley", "Roosevelt", "Taft", "Wilson", "Harding", "Coolidge",
"Hoover", "FDR", "Truman", "Eisenhower", "Kennedy", "Johnson",
"Nixon", "Ford", "Carter", "Reagan", "BushHW", "Clinton", "BushW",
"Obama", "Trump", "Biden"), party = c("R", "D", "R", "D", "R",
"R", "R", "D", "R", "R", "R", "D", "D", "R", "D", "D", "R", "R",
"D", "R", "R", "D", "R", "D", "R", "D"), t0 = c(1882L, 1885L,
1889L, 1893L, 1897L, 1901L, 1909L, 1913L, 1921L, 1923L, 1929L,
1933L, 1945L, 1953L, 1961L, 1963L, 1969L, 1974L, 1977L, 1981L,
1989L, 1993L, 2001L, 2009L, 2017L, 2021L), tF = c(1885L, 1889L,
1893L, 1897L, 1901L, 1909L, 1913L, 1921L, 1923L, 1929L, 1933L,
1945L, 1953L, 1961L, 1963L, 1969L, 1974L, 1977L, 1981L, 1989L,
1993L, 2001L, 2009L, 2017L, 2021L, 2023L), yrs = c(3L, 4L, 4L,
4L, 4L, 8L, 4L, 8L, 2L, 6L, 4L, 12L, 8L, 8L, 2L, 6L, 5L, 3L,
4L, 8L, 4L, 8L, 8L, 8L, 4L, 2L), slope = c(-0.077, 0.0580000000000094,
-0.0349999999999999, 0.0630000000000012, 0.0110000000000054,
-0.026, 0.0350000000000041, 0.00133333333333335, -0.0400000000000101,
-0.00464285714285618, 0.0149999999999992, 0.0339010989010986,
5e-04, 0.0135, -0.00499999999999831, 0.0117857142857077, -0.00342857142857128,
0.066, 0.0470000000000014, 0.00983333333333333, -0.0310000000000014,
0.0258333333333333, 0.00666666666666666, 0.0436666666666666,
-2.6331251014323e-17, 0.0850000000000491), total = c(-0.231,
0.232000000000037, -0.14, 0.252000000000005, 0.0440000000000218,
-0.208, 0.140000000000017, 0.0106666666666668, -0.0800000000000202,
-0.0278571428571371, 0.0599999999999969, 0.406813186813183, 0.004,
0.108, -0.00999999999999662, 0.0707142857142461, -0.0171428571428564,
0.198, 0.188000000000006, 0.0786666666666667, -0.124000000000006,
0.206666666666667, 0.0533333333333333, 0.349333333333333, -1.05325004057292e-16,
0.170000000000098)), row.names = c(NA, -26L), class = "data.frame")