2 deleted 19 characters in body edited Dec 13 '18 at 20:52 Anton Antonov 25.8k11 gold badge6868 silver badges122122 bronze badges Is it possible somehow to filter these spikes? In that question "filter" can be interpreted in several ways. Instead of signal filtering (used in the previous answers) you can identify and remove the outliers. Import["https://raw.githubusercontent.com/antononcube/MathematicaForPrediction/master/OutlierIdentifiers.m"] (* This finds the outliers positions. *) otlPos = OutlierPosition[data[[All, 2]], SPLUSQuartileIdentifierParameters]; (* Plot the data in blue and the outliers in red. *) Show[ListLinePlot[data, PlotRange -> All], ListPlot[data[[otlPos]], PlotStyle -> {Red}]]  (* Plot the signal withoutdata with the outliers removed. *) ListLinePlot[data[[Complement[Range[Length[data]], otlPos]]], PlotRange -> All]  Is it possible somehow to filter these spikes? In that question "filter" can be interpreted in several ways. Instead of signal filtering (used in the previous answers) you can identify and remove the outliers. Import["https://raw.githubusercontent.com/antononcube/MathematicaForPrediction/master/OutlierIdentifiers.m"] (* This finds the outliers positions. *) otlPos = OutlierPosition[data[[All, 2]], SPLUSQuartileIdentifierParameters]; (* Plot the data in blue and the outliers in red. *) Show[ListLinePlot[data, PlotRange -> All], ListPlot[data[[otlPos]], PlotStyle -> {Red}]]  (* Plot the signal without with the outliers removed. *) ListLinePlot[data[[Complement[Range[Length[data]], otlPos]]], PlotRange -> All]  Is it possible somehow to filter these spikes? In that question "filter" can be interpreted in several ways. Instead of signal filtering (used in the previous answers) you can identify and remove the outliers. Import["https://raw.githubusercontent.com/antononcube/MathematicaForPrediction/master/OutlierIdentifiers.m"] (* This finds the outliers positions. *) otlPos = OutlierPosition[data[[All, 2]], SPLUSQuartileIdentifierParameters]; (* Plot the data in blue and the outliers in red. *) Show[ListLinePlot[data, PlotRange -> All], ListPlot[data[[otlPos]], PlotStyle -> {Red}]]  (* Plot the data with the outliers removed. *) ListLinePlot[data[[Complement[Range[Length[data]], otlPos]]], PlotRange -> All]  1 answered Dec 13 '18 at 14:11 Anton Antonov 25.8k11 gold badge6868 silver badges122122 bronze badges Is it possible somehow to filter these spikes? In that question "filter" can be interpreted in several ways. Instead of signal filtering (used in the previous answers) you can identify and remove the outliers. Import["https://raw.githubusercontent.com/antononcube/MathematicaForPrediction/master/OutlierIdentifiers.m"] (* This finds the outliers positions. *) otlPos = OutlierPosition[data[[All, 2]], SPLUSQuartileIdentifierParameters]; (* Plot the data in blue and the outliers in red. *) Show[ListLinePlot[data, PlotRange -> All], ListPlot[data[[otlPos]], PlotStyle -> {Red}]]  (* Plot the signal without with the outliers removed. *) ListLinePlot[data[[Complement[Range[Length[data]], otlPos]]], PlotRange -> All]