Работа с количественными временными рядами
Проанализируем изменения в температуре в какой-либо местности.
In[1]:=

data = WeatherData[
Entity["City", {"Champaign", "Illinois", "UnitedStates"}],
"Temperature", {{2016, 3, 20}, {2016, 3, 22}}];
In[2]:=

temps = TimeSeries[data, MissingDataMethod -> "Interpolation"]
Out[2]=

Визуализируем временной ряд температурных значений.
In[3]:=

DateListPlot[temps, PlotTheme -> "Detailed"]
Out[3]=

Oтобразим основные свойства временного ряда.
In[4]:=

stats = {Min, Max, Mean, Median, StandardDeviation};
TableForm[{Map[#[temps] &, stats]}, TableHeadings -> {None, stats}]
Out[4]//TableForm=

Выразим температурные показатели по шкале Фаренгейтa.
In[5]:=

tempsF = UnitConvert[temps, "DegreesFahrenheit"];
TableForm[{Map[#[tempsF] &, stats]}, TableHeadings -> {None, stats}]
Out[5]//TableForm=

Рассчитаем среднее 6-ти часовое значение температуры.
In[6]:=

avg = MovingMap[Mean, temps, {Quantity[6, "Hours"], Center}]
Out[6]=

код на языке Wolfram Language целиком
Out[7]=
