I have a series data
data=Uncompress[ FromCharacterCode[Flatten[ImageData[Import["http://i.stack.imgur.com/ApipY.png"], "Byte"]]]];
We can show it
ListPlot[data, PlotRange -> All]
I put a singular value in position $20$ and $21$.As I know,wavelet analysis can detect it,but I don't know how to do it.