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
Time: 01 Jun 2020 to 15 Sep 2020
Data points: 105

Out[]=
Out[]=
Out[]=
Zeitreihe
Moving Average