Rを使ってみる
といってもRで痩せるとかそういうことではない。 2007年春からの体重，体脂肪率の記録があって，ときどきOOoで作ったグラフを掲載しているのだが， そのグラフをRで作ってみた。
plot(weight$日付,weight$体重)
変動が激しすぎて，これでは傾向があまりわからない。そこで平滑化したグラフを重ねてみる。
plot(weight$日付,weight$体重)
lines(lowess(weight$日付,weight$体重),lwd=3,color="red")
おや，増えてるじゃないか。これではいかん。別のデータを用意しなくては。
今度は体脂肪率で同じことをやってみる。
plot(weight$日付,weight$体脂肪率)
lines(lowess(weight$日付,weight$体脂肪率),lwd=3,color="red")
体脂肪率は非常にゆるやかに減少している。少しほっとした。 では脂肪の量はどうだろうか。
plot(weight$日付,weight$脂肪)
lines(lowess(weight$日付,weight$脂肪),lwd=3,color="red")
あまり変化していない。ということは，体重の増加は筋肉の増加？