In[]:=
ts=TimeSeries
Time:
31 Dec 2007
to
30 Apr 2016
Data points: 101
;
In[]:=
peaks=FindPeaks[ts,0,0,0]
Out[]=
TimeSeries
Time:
31 Jul 2008
to
30 Apr 2016
Data points: 20

In[]:=
DateListPlot[​​{ts,peaks},​​Joined{True,False},​​PlotStyle{Automatic,PointSize[.01]}​​]
Out[]=