Mapee sus actividades de acondicionamiento físico 

Analice datos de RunKeeper.

Conéctese a su cuenta de RunKeeper.

In[1]:=

X runkeeper = ServiceConnect["RunKeeper"]

Out[1]=

Importe las distancias de sus actividades recientes.

In[2]:=

X distances = Lookup[runkeeper["FitnessActivities"], "TotalDistance"]

Cree una tabla de estadísticas.

In[3]:=

X stats = {Mean, Median, Max, Min, StandardDeviation}; table = Grid[{stats, Through[stats@distances]}]

Out[3]=

Utilice las estadísticas como una etiqueta en el mapa de sus rutas.

In[4]:=

X Labeled[Show[runkeeper["PathsMap"], ImageSize -> 400], table]

Out[4]=