r - r の行列間の計算

Question

2 つのマトリックスでの作業に関連する質問があります。

最初の行列 (P(i)) が次のとおりであると仮定しましょう。

x <- rmultinom(2, size = 10, prob=c(0.5,0.5))

> x
      [,1] [,2]
[1,]    6    4
[2,]    4    6

..そして 2 番目の行列 (Q(i)) は次のとおりです。

y <- rmultinom(2, size = 10, prob=c(0.5,0.5))
> y
      [,1] [,2]
[1,]    6    7
[2,]    4    3

P(i) が最初の行列のすべてのセルを表し、Q(i) が 2 番目の行列のすべてのセルを表すと仮定しましょう。この関数を合計しようとしています (「Sum」の記号が見つかりませんでした):

z = (Sum)(P(i)*log(P(i)/Q(i)))

どんな助けでも大歓迎です。ありがとう！