「ぎょーむ日誌」目次に戻る | KuboWeb top に戻る | twilog | atom

ぎょーむ日誌 2014-01-(21-31)

苦情・お叱りは, たいへんお手数かけて恐縮ですが, 久保 (kubo@ees.hokudai.ac.jp) までお知らせください.

2014 年 01 月 21 日 (火)

coop21a.jpg
[北大生協クラーク会館店りにゅーある]
ちょっと寄り道して, のぞいてみた. 半年以上, 工事してたんじゃないかな ……

coop21b.jpg
[2F 書籍部]
建物は新しくなったけど, 1F と 2F の売り場面積そのものは以前とはあまりかわらないような (cf. フロア概要 PDF file) …… まあ, 「多目的スペース」とか追加されたようなので, そういう点が強化されたんでしょう.


2014 年 01 月 22 日 (水)

rndCI22.jpg

2014 年 01 月 23 日 (木)

ishida23.jpg
[石田さんから本を送っていただきました]
ありがとうございます. らのべふうデータ解析本 第 2 巻, この本では因子分析その他あれこれをタテ書きで解説! …… 今回もすごく売れそうだな ……


2014 年 01 月 24 日 (金)


2014 年 01 月 25 日 (土)

tora25.jpg
[とら散髪]
前髪がちょっとヘンかな …… ということで, これから補正するところ …… この作業は簡単だったけど, その後に散らばった髪の毛の掃除とかに時間をくって ……


2014 年 01 月 26 日 (日)

tora26.jpg
[とら画伯]
外は吹雪なので, 家の中にとじこもってばかり …… 初めて, とらに鉛筆をもたせてみたら, このように絵を書いてくれました. 指がちょっとぼろぼろしてるのは, あとぴーです (モクタール塗で改善中).


2014 年 01 月 27 日 (月)

pairs27.png
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)

2014 年 01 月 28 日 (火)

pairs28.jpg
fox28.jpg
[キツネ?]
なぜか保育所の玄関にキツネの氷像がおいてありました ……


2014 年 01 月 29 日 (水)

aramaki29.jpg
[うーむ,まさかのビッグウォーズ再開?]
昼飯後に北大東の古本屋の前で見かけたポスター …… 展示・イヴェントの web site もできている …… これ, ずいぶんカネがかかっていそうだな. ナゾなかんじ. 道立文学館 は, なんだかじみなかんじで.


2014 年 01 月 30 日 (木)


2014 年 01 月 31 日 (金)


KuboLog | KuboWeb