> data2 <- NULL
> lapply(unique(data$group), function(g) {temp <- data[data$group == g,]
data2 <<- rbind(data2, temp[which.max(temp$y),]) } )
なるほど!
<<- 演算子
ってこうやって使えばいいのか!
> data2 <- NULL > by(data, data$group, function(i) data2 <<- rbind(data2,i[which.max(i$y),]))たしかに
<<-
演算子あれば tapply() や by()
の使いかたも変わるよな
……
pairs()
図はこのようになる.
"log"
から default ("identity")
に変えると,
これはまあ計算してくれるわけで.
make pdf
してアップロード,
7 名いる共著者の皆さんにメイル書き.
とりあえず一件落着したことにしよう.
make pdf
発令して再アップロード.