ぎょーむ日誌 2014-01-27

2014 年 01 月 27 日 (月)

• 3 時すぎ， 「かゆいよー」 …… とら泣き． 15 分ほどだっこうろうろしたら寝てくれた ……
• 0550 起床． 朝飯・弁当の準備． とらめし． 朝飯． コーヒー． 0825 自宅発． 晴． 昨日からまた真冬日が再開している． 0835 保育所着． ひよこ組のみなさん， 園庭の除雪機が働いている様子を窓にはりついて観察している …… 0910 研究室着．
• …… えーい， 脱力しているばあいではない ……
• とはいえ， 進捗よろしくないまま昼飯．
• かたづけられるものから， かたづける ……
• ハイマツデータの統計モデリングにさきだち， いろいろと図を作らねばならない …… ところが， 院生の皆さん， なかなかこういうことをやらない or できないんだよね …… とりあえず， R coding 例もつけとくから， 参考にしてください．

panel.cor <- function(x, y, prefix="", method = "kendall"){
   r <- cor(x, y, method = method)
   txt <- sprintf("%.2f", r)
   txt <- paste(prefix, txt, sep="")
   par(usr = c(0, 1, 0, 1))
   text(0.5, 0.5, txt, cex = 1 + abs(r) * 4, col = "#0000ff")
}
panel.xy <- function(x, y) points(x, y, col = "#ff4000")
ds <- d[d$mountain == "AK",]
d.med <- data.frame(ss.med = tapply(ds$ss, ds$ye, median))
d.med <- cbind(d.med, unique(ds[,5:9]))
pairs(d.med, lower.panel = panel.cor, upper.panel = panel.xy)

• 1710 研究室発． 1740 帰宅． とらめし． 晩飯．
• [今日の運動]
  • とらちゃんえくささいず．
• [今日の食卓]
  • 朝 (0650): 米 0.7 合． ダイコン・油揚の味噌汁．
  • 昼 (1230): 研究室． 米 0.7 合． タマネギ天． サトイモ・ニンジンの煮物． ブロッコリー． ミニトマト．
  • 晩 (1900): 米 0.9 合． 根菜・鶏肉のスープ．