逐栏＆＃34;外部产品＆＃34;

Question

我有一个20 x 10矩阵X，我想在{10 x 10 x 20 A创建一个A[i,j,] = X[,i] * X[,j]数组i,j 1:10 1}}。这是一个使用for循环的简单解决方案：

X <- matrix(seq(10*20),20,10)
A <- array(dim=c(10,10,20))
for (i in 1:10)
  for (j in 1:10)
    A[i,j,] <- X[,i] * X[,j]

如何使用矢量化实现这一点？

感谢。

Answer 1

使用<!-- ko foreach: ItemDetails().PriceRebates --> <tr> <td><b>Rebate Value:</b></td> <td data-bind="text: RebateValue"></td> <td><b>Rebate Code:</b></td> <td data-bind="text: RebateCode"></td> <td><b>Rebate Desc:</b></td> <td data-bind="text: RebateDesc"></td> </tr> <!-- /ko --> ，这是你想要的吗？

outer

编辑：在问题相关问题发生更改后更新了答案。