r - r中矩阵之间的计算

Question

我有一个与处理两个矩阵有关的问题。

假设第一个矩阵 (P(i)) 是：

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

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

..第二个矩阵（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) 代表第二个矩阵中的每个单元格。我正在尝试对这个函数求和，（我找不到“Sum”的符号）：

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

任何帮助将不胜感激。谢谢！