data=Import["\\\\fileserv2.hh.nku.edu\\stevensj8$\\MAT 375\\CleanKKData.csv"];

yearsStart0=Flatten[Rest[data[[All, {2}]]]-1961];

rainfall= Flatten[Rest[data[[All, {4}]]]];

RainfallData= Table[{yearsStart0[[i]],rainfall[[i]]},{i,1,601}]

model=LinearModelFit[RainfallData,{x,Cos[2*Pi*x],Sin[2*Pi*x],Cos[6*Pi*x],Sin[6*Pi*x],Cos[8*Pi*x],Sin[8*Pi*x]},x]

model["ParameterTable"]

ListLinePlot[Table[RainfallData[[i]],{i,590,601}]]

Show[Plot[model[x]-54,{x,0,1}],ListLinePlot[RainfallData]]