Keeling Start

Andy Long
Spring, 2020

Here’s one way you might Import the CO2 data: straight off the web.

dat=Import["ftp://aftp.cmdl.noaa.gov/products/trends/co2/co2_mm_mlo.txt","Table"];
DeleteCases[dat,{__String},{-1}];
dat[[96,1]]
dat[[71]]
(* First data line in the file: *)
Table[dat[[73,i]],{i,1,7}] 
dim=Dimensions[dat][[1]]
DecimalDate=Table[dat[[i,3]]-1958,{i,74,dim}] ;
CO2data=Table[dat[[i,5]],{i,74,dim}] ;
KeelingData=Transpose[{DecimalDate,CO2data}];
ListPlot[KeelingData]