!!!rowsum
*投稿者： みゅ
*カテゴリ： なし
*優先度： 普通
*状態： 完了
*日時： 2010年05月06日 17時28分37秒
//{{bugstate}}
!!内容
*こんな関数があるなんて、今まで知らなかった・・・
*Ｒのソースをボーとながめてて発見
 x <- matrix(runif(100), ncol=5)
 group <- sample(1:8, 20, TRUE)
 (xsum <- rowsum(x, group))
 ## Slower versions
 tapply(x, list(group[row(x)], col(x)), sum)
 t(sapply(split(as.data.frame(x), group), colSums))
 aggregate(x, list(group), sum)[-1]

*ちなみに以下の関数も発見
 colSums (x, na.rm = FALSE, dims = 1)
 rowSums (x, na.rm = FALSE, dims = 1)
 colMeans(x, na.rm = FALSE, dims = 1)
 rowMeans(x, na.rm = FALSE, dims = 1)

!!コメント
//{{comment}}