Cálculo de la línea de base 

Importe la actividad reciente de manchas solares.

In[1]:=

X data = WolframAlpha[ "sunspot", {{"SunspotsPartialTimeSeries:SpaceWeatherData", 1}, "TimeSeriesData"}][[All, 2]];

Calcule y visualice el fondo de la señal.

In[2]:=

X bg = EstimatedBackground[data, 10];

In[3]:=

X ListLinePlot[{data, bg}, AspectRatio -> 1/3, ImageSize -> Medium]

Out[3]=

Sustraiga el fondo de los datos.

In[4]:=

X ListLinePlot[data - bg, AspectRatio -> 1/3, ImageSize -> Medium]

Out[4]=