R 行列の処理について 基本

Question

前提・実現したいこと

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
その後各行の平均を求めたい。

どのようにすれば良いでしょうか？

Answer 1

質問文が今ひとつ意味不明ですが、やりたいのはこういうことでしょうか？

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)