畑を耕した

自分や家族が風邪ひいたり、雨や雪が降ったりとかであっという間に三週間ほど過ぎてしまったが、一日かけて耕した。

1271584312 1271584318

二年目の明日葉は新芽を摘んで天麩羅にして食べた。

あとは、石灰撒いて、肥料入れればいいかな。

Snow / Seba

滑りに行きたい病

最近読んだ本とか

本棚を整理して、よく読む本屋や積んである本の場所を用意してみた。今読ん出る本はまた別の場所にある。

一通り読んでみてScalaは結構楽しそう。

1270896965

Liftは気になるけどまだ読んでない。

1270896972

「心を鬼にして叱るより 無理にでもほめなさい」を読んだ

「承認」というものが、なんとなくわかった気がする。

ProductName 心を鬼にして叱るより 無理にでもほめなさい
杉本 良明
日本実業出版社 / ¥ 1,470 ()
在庫あり。

アサーティブ関連な本

アサーティブって僕が娘に接する態度みたいなもんか、、、

ProductName アサーティブ仕事術―気持ちが伝わる!意見が通る!
畔柳 修
PHP研究所 / ¥ 945 ()
在庫あり。

  • 感情は感じている本人のものという自覚を持とう
  • youメッセージからIメッセージへ
  • DESC法

ProductName いい仕事をする人の3つの断り方!
臼井 由妃
青春出版社 / ¥ 1,365 ()
在庫あり。

  • 「断ったほうがいい」とか「断らないほうがいい」という問題でなく長い目でみて自分はどうなりたいのか
  • 「どうせ断るのだから」とおざなりな対応をしたり、「嫌いな相手の誘いだから」とバカにした態度をとってはいけません

ここ数年分の血圧データをggplot2で

自分の血圧のデータが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)

bp2010

2008年から2009年の頭のあたりで急激に落ちているのは環境要因ですな。そして、ああいう働き方は二度としないしできないだろうなぁ。

ニュー・スーパーマリオブラザーズ・Wii

娘と遊ぼうと買ってみたが、これはなかなかたのしい。

ProductName ニュー・スーパーマリオブラザーズ・Wii

任天堂 / ¥ 5,800 (2009-12-03)
在庫あり。

娘と遊んでいて気づいたのは、娘はwiiスポーツとかwiiフィットしかやったことがなくて、十字キー+ABっていうのは初めてなので、ジャンプしたいときにはコントローラー上に降ったり、進みたい方向に傾けたりしてしまう。十字キーとか2ボタンでジャンプとかはやりにくいうえに、同時に右手左手を操作するのも難しいようだ。

加速度センサーのほうが操作デバイスとしては自然なんだろうなーと思った。

「アサーティブ・コミュニケーション」を読んだ

アサーティブ期

ProductName アサーティブ・コミュニケーション―言いたいことを「言える」人になる
岩舩 展子,渋谷 武子
PHPエディターズグループ / ¥ 1,260 ()
在庫あり。

  • 私を主語にすればスッと伝わる
  • アサーティブな対応というのは必ずしも自分の伝えたいことを言うことではない

QR分解とかLU分解とか

思うところあって(というか、非線形混合効果モデルの式がなかなか把握できないので)、線形代数のあたりを復習してみたりとか。

プログラミングのための線形代数はやっぱりいい本だなぁと思う。幾何的なイメージつかみやすいし、QR分解とかLU分解とかもわかりやすい

ProductName プログラミングのための線形代数
平岡 和幸,堀 玄
オーム社 / ¥ 3,150 ()
在庫あり。

以下、Rで。

LU分解

library(Matrix)
x <- Matrix(rnorm(9), 3, 3)
elu <- expand(lu(x))
elu$L
elu$U

QR分解

x <- matrix(rnorm(9), 3, 3)
y <- qr(x)
qr.Q(y)
qr.R(y)

「ウェブ大変化」を読んだ

ウェブの話というよりは、それを取り巻く環境の変化について。情報アプライアンスの話とか、拡張現実とか、クラウドとかみんな合わせてどこに向かっているんだろうか?と。

  • レッドタクトン
  • コンピュータをキーボードとマウスを用いて操作し、ネットにログインして意識的に利用する時代はもう終わろうとしている
  • amazon EC2
  • エラー忘却型コンピューティング
  • ワールド・ビーム