2 deleted 19 characters in body
source | link

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}]]

enter image description here

(* Plot the signal withoutdata with the outliers removed. *)
ListLinePlot[data[[Complement[Range[Length[data]], otlPos]]], 
 PlotRange -> All]

enter image description here

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}]]

enter image description here

(* Plot the signal without with the outliers removed. *)
ListLinePlot[data[[Complement[Range[Length[data]], otlPos]]], 
 PlotRange -> All]

enter image description here

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}]]

enter image description here

(* Plot the data with the outliers removed. *)
ListLinePlot[data[[Complement[Range[Length[data]], otlPos]]], 
 PlotRange -> All]

enter image description here

1
source | link

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}]]

enter image description here

(* Plot the signal without with the outliers removed. *)
ListLinePlot[data[[Complement[Range[Length[data]], otlPos]]], 
 PlotRange -> All]

enter image description here