Données provenant de sources Internet
Téléchargez les températures moyennes quotidiennes pour l'année écoulée pour les Grands Lacs.
In[1]:=
rawdata =
Import["http://coastwatch.glerl.noaa.gov/ftp/glsea/avgtemps/glsea-\
temps_1024.dat", "Data"];
Les observations commencent à partir de la ligne 11.
In[2]:=
rawdata[[;; 11]]
Out[2]=
In[3]:=
obs = rawdata[[11 ;;]];
Le nombre d'observations.
In[4]:=
Length[obs]
Out[4]=
Définissez la liste des lacs.
In[5]:=
lakes = {"Superior", "Michigan", "Huron", "Erie", "Ontario",
"St. Clair"};
Afficher l'entrée complète de Wolfram Language
Out[6]=
Créez des dates qui serviront d'horodotage dans la TimeSeries.
In[7]:=
dates = Table[
DatePlus[{obs[[k, 1]], 1, 1}, Quantity[obs[[k, 2]], "Days"]], {k,
1, Length[obs]}];
Utilisez QuantityArray pour stocker les températures et l'unité.
In[8]:=
values = QuantityArray[obs[[All, 3 ;;]], "DegreesCelsius"]
Out[8]=
Stockez la liste des lacs en tant que MetaInformation qui peut être récupéré plus tard, par exemple, pour créer des légendes de tracé.
In[9]:=
ts = TimeSeries[values, {dates},
MetaInformation -> {"Lakes" -> lakes}]
Out[9]=
In[10]:=
DateListPlot[ts, PlotLegends -> ts["Lakes"], PlotTheme -> "Detailed",
FrameLabel -> Automatic]
Out[10]=
Étudiez les statistiques descriptives pour chaque lac.
In[11]:=
stats = {Min, Max, Mean, Median, StandardDeviation};
summary[lake_] := Map[#[lake] &, stats]
In[12]:=
TableForm[
Table[summary[ts["PathComponent", k]], {k, 1, Length[lakes]}],
TableHeadings -> {lakes, stats}]
Out[12]//TableForm=