自分の血圧のデータが3年くらい溜まっているので、収縮期血圧と測定日時のプロットをして、スムージングもしてみた。冬場は血圧が上昇する傾向にある。測定始める前は180超えて190近くあったから、かなり落ち着いた感じ。
library(ggplot2)
data <- read.csv("/Users/kzfm/mybp.csv",header=FALSE)
time <- strptime(data$V1, "%Y-%m-%d")
high <- data$V2
low <- data$V3
mybp <- data.frame(time=time,high=high,low=low)
p <- qplot(data=mybp,time,high)
p + stat_smooth() + stat_smooth(colour="green", method="lm", formula=y~poly(x,9), size=1,se=FALSE)

2008年から2009年の頭のあたりで急激に落ちているのは環境要因ですな。そして、ああいう働き方は二度としないしできないだろうなぁ。
Pharmacokinetic-Pharmacodynamic Modeling and Simulation
ニュー・スーパーマリオブラザーズ・Wii
アサーティブ・コミュニケーション―言いたいことを「言える」人になる
Scalaスケーラブルプログラミング[コンセプト&コーディング] (Programming in Scala)
Foundation(ファウンデーション)
The R Book―データ解析環境Rの活用事例集
プログラミングのための線形代数
ウェブ大変化 パワーシフトの始まり~クラウドだけでは語れない来たるべき未来 (KINDAI E&S BOOK)