Visualize Fitness Data 

Create plots of data from a Fitbit account.

Connect to your Fitbit account.

In[1]:=

X fitbit = ServiceConnect["Fitbit"]

Out[1]=

Plot calories burned, steps taken, and weight.

In[2]:=

X Table[fitbit[ data, {"StartDate" -> DateObject[{2013, 11, 1}, TimeObject[{0, 0, 0.`}]], "EndDate" -> DateObject[{2014, 5, 1}, TimeObject[{0, 0, 0.`}]], "PlotLabel" -> data}], {data, {"CaloriesPlot", "StepsPlot", "WeightPlot"}}]

Out[2]=