Import["chandler.csv"]
Transpose[%]
Delete[%,1]
Transpose[%]
data=Apply[Complex,%,{1}]
Data=Fourier[data]
Data=RotateLeft[Data,1]
ListLinePlot[Abs[Data],PlotRange->All]
ListLinePlot[Abs[Data],PlotRange->{{75,115},All}]
