How to detect the singular value with wavelet analysis

I have a series data

data=ReplacePart[Table[N[Exp@Sin[i]], {i, 0, 20, .1}], 20 | 21 -> 4];

We can show it

ListPlot[data, PlotRange -> All]

L3rqD How to detect the singular value with wavelet analysis

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.

Let’s block ads! (Why?)

Recent Questions – Mathematica Stack Exchange