data=Import["/Users/mcgill/Desktop/P62\ movecarousel\ times.txt","CSV"];

data[[1]]

tdata=data[[All,1]];

tdata[[1;;10]]

Length[tdata]

AbsoluteTime[tdata[[1]]]

atdata=Map[AbsoluteTime,tdata];

dtimes=Differences[atdata];

Length[dtimes]

ListPlot[dtimes[[10000;;20000]],PlotRange->{All,{0,10000}}]

pdata=Partition[Riffle[Drop[tdata,1],dtimes],2];

pdata[[1;;10]]

DateListPlot[pdata[[1;;5000]],PlotRange->All,Joined->False]

DateListPlot[pdata[[2500;;3500]],PlotRange->{{{2013,10,11,0},{2013,10,12}},{0,200}},Joined->False]

DateListPlot[pdata[[15000;;25000]],PlotRange->{{{2013,10,11,0},{2013,10,12}},{0,500}},Joined->False]

DateListPlot[pdata[[15000;;25000]],PlotRange->All,Joined->False]