質問: ### 前提・実現したいこと matrix(1:6, nrow=2, ncol=3, byrow=T) [,1] [,2] [,3] [1,] 1 2 3 [2,] 4 5 6 この行列の要素に全て列の値を掛け合わせたものを得たい。 つまり 1 4 9 4 10 18 その後各行の平均を求めたい。 どのようにすれば良いでしょうか?
回答: 質問文が今ひとつ意味不明ですが、やりたいのはこういうことでしょうか? ``` xx<-matrix(c(1,2,3,4,5,6), nrow=2, ncol=3, byrow=T) matrix(apply(xx, 1, function(x){x*xx[1,]}), ncol=3, byrow=T) ```