Map Your Fitness Activities 

Analyze data from RunKeeper.

Connect to your RunKeeper account.

In[1]:=

X runkeeper = ServiceConnect["RunKeeper"]

Out[1]=

Import the distances of your recent activities.

In[2]:=

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

Create a table of statistics.

In[3]:=

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

Out[3]=

Use the statistics as the label on a map of your routes.

In[4]:=

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

Out[4]=