## COMPARE TO GAVIN PLOT par (mar =
c (3,3,2,1)-RRB- plot (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.A»], col = 2, ylim = c -LRB--.25, 1.5), xlim = c (1958,2010), xlab =»», ylab =»», tcl =.25, axes = FALSE) box -LRB--RRB-; axis (side = 1, tcl =.25); axis (side = 2, las = 1, font = 2) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.A»], col = 2, lwd = 2) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, pch = 1) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (3,3,2,1)-RRB- plot (
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.A»], col = 2, ylim = c -LRB--.25, 1.5), xlim = c (1958,2010), xlab =»», ylab =»», tcl =.25, axes = FALSE) box -LRB--RRB-; axis (side = 1, tcl =.25); axis (side = 2, las = 1, font = 2) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.A»], col = 2, lwd = 2) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, pch = 1) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.A»], col = 2, ylim =
c -LRB--.25, 1.5), xlim = c (1958,2010), xlab =»», ylab =»», tcl =.25, axes = FALSE) box -LRB--RRB-; axis (side = 1, tcl =.25); axis (side = 2, las = 1, font = 2) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.A»], col = 2, lwd = 2) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, pch = 1) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c -LRB--.25, 1.5), xlim =
c (1958,2010), xlab =»», ylab =»», tcl =.25, axes = FALSE) box -LRB--RRB-; axis (side = 1, tcl =.25); axis (side = 2, las = 1, font = 2) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.A»], col = 2, lwd = 2) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, pch = 1) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (1958,2010), xlab =»», ylab =»», tcl =.25,
axes = FALSE) box -LRB--RRB-;
axis (side = 1, tcl =.25);
axis (side = 2, las = 1, font = 2) lines (
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.A»], col = 2, lwd = 2) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, pch = 1) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.A»], col = 2, lwd = 2) lines (
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, pch = 1) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, lwd = 2) points (
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, pch = 1) lines (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.B»], col =» green4 ″, pch = 1) lines (
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.
C»], col = 4, lwd = 2) points (c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
C»], col = 4, lwd = 2) points (
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (hansen88)-RRB-, hansen88 -LSB-,» Scenario.
C»], col = 4, pch = 1) lines (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
C»], col = 4, pch = 1) lines (
c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, lwd = 2) points (
c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (giss.glb)-RRB-, giss.glb, col =» grey60 ″, pch = 19) lines (
c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, lwd = 3) points (
c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill = c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (time (spaghetti)-RRB-, spaghetti -LSB-,» tlt3.glb»], col = 1, pch = 19) abline (v = 1987, lty = 3, col =» grey80 ″) abline (h = seq (0,1.5,.5), col =» grey80 ″, lty = 2) legend (1958,1.6, fill =
c (2,3,4,» grey60 ″, 1), legend = c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c (2,3,4,» grey60 ″, 1), legend =
c («Hansen A»,» Hansen B»,» Hansen C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
c («Hansen A»,» Hansen B»,» Hansen
C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»
C»,» GISS Surf»,» RSS Sat»)-RRB- title (main =» Hansen et al 1988 Projections»)