In[]:=
beginn={2020,6,1};ende={2020,9,15};ts=WeatherData[{67.55,133.38},"MaxTemperature",{beginn,ende,"Day"}]movav=MovingAverage[ts,10];DateListPlot[ts]DateListPlot[movav]DateListPlot[{ts,movav},PlotLegends{"Zeitreihe","Moving Average"}]
Out[]=
TimeSeries
Out[]=
Out[]=
Out[]=