> 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
発令して再アップロード.