10,000 Steps

About a year ago, I bought Gordon Bell and Jim Gemmell’s book Total Recall: How the E-Memory Revolution Will Change Everything. That was the first time I had ever read about the health benefits of taking at least 10,000 steps every day. Right afterward, of course, I began seeing references to it everywhere. I like measuring and keeping track of things—although I’m not as obsessive as these guys—so I ordered an Omron HJ-150 Pedometer from Amazon and started keeping track. I walk a lot and I was sure that I was easily doing 10,000 steps a day. Hah! Not even close. It turns out it was more like 6000–7000 so I started walking more and every morning I would record the previous day’s steps in an Org-mode table. Here’s the last 4 weeks worth of data:

Date Steps
2011-04-04 Mon 18078
2011-04-05 Tue 4025
2011-04-06 Wed 11820
2011-04-07 Thu 15827
2011-04-08 Fri 15990
2011-04-09 Sat 11048
2011-04-10 Sun 3151
2011-04-11 Mon 12974
2011-04-12 Tue 17522
2011-04-13 Wed 16498
2011-04-14 Thu 11476
2011-04-15 Fri 15877
2011-04-16 Sat 840
2011-04-17 Sun 984
2011-04-18 Mon 9253
2011-04-19 Tue 15125
2011-04-20 Wed 12010
2011-04-21 Thu 17198
2011-04-22 Fri 16229
2011-04-23 Sat 13029
2011-04-24 Sun 2674
2011-04-25 Mon 15151
2011-04-26 Tue 15746
2011-04-27 Wed 11496
2011-04-28 Thu 12001
2011-04-29 Fri 15112
2011-04-30 Sat 12170
2011-05-01 Sun 3334

Of course, once you have data like this there’s an overwhelming urge to do something with it. If I were an R user, I could run all sorts of statistical calculations on it but since I’m not, I had to settle for graphing it. That’s OK because it gives me an excuse to play with Babel some more. I just added

#+BEGIN_SRC gnuplot :var data=steps :file http://irreal.org/blog/wp-content/uploads/2011/05/wpid-steps.png
set size .75,1
set xdata time
set timefmt "%Y-%m-%d"
set xrange ["2011-04-03":"2011-05-02"]
set timefmt "%Y-%m-%d-00:00:00"
set format x "%m/%d"
plot data using 1:2 with linespoints pointtype 13 title 'Steps'
#+END_SRC

to the end of the file, typed C-c C-c and had a nice graph of my data:

http://irreal.org/blog/wp-content/uploads/2011/05/wpid-steps.png

As you can see, I take Sundays off. Perhaps I’ll install R and run some statistics on it. Babel has an R mode, you know.

This entry was posted in Programming and tagged . Bookmark the permalink.