keeling=Import["http://ceadserv1.nku.edu/longa//classes/mat375/Mathematica/Keeling.csv"];

Year=Rest[keeling[[All,3]]];
co2=Rest[keeling[[All,5]]];

Years=Year-1958;
keelingtable=Table[{Years[[i]],co2[[i]]},{i,1,718}];

lm=LinearModelFit[keelingtable,{x,(x^2),Sin[2π*x],Cos[2π*x]},x,ConfidenceLevel->0.95]

p1=Plot[lm[x],{x,0,60}];
keelingplot=ListPlot[keelingtable];
Show[p1,keelingplot,Frame->True]

ListPlot[lm["FitResiduals"],Filling->Axis]

lm["ParameterConfidenceIntervals"]

lm["ParameterTable"]

params=lm["BestFitParameters"]