r - 将 (x1+x2)*y 转换为矩阵，或从不同长度的向量中调用函数参数

Question

我想创建一个矩阵，将 x 参数与函数中的 y 参数结合起来：

x1<-c(2, 4, 6)
x2<-c(1, 2, 3)
y<-c(0, 1, 10, 100, 1000)

f1<-function(x1, x2, y) {
  return((x1+x2)*y)
}

结果应该是：

[,1] [,2] [,3] [,4] [,5]
r1    0    3   30  300 3000
r2    0    6   60  600 6000
r3    0    9   90  900 9000

（行和列的命名并不重要）。这可能是最基本的事情之一，但我仍然碰壁，无法用谷歌搜索答案。

标签： rmatrix

Answer 1

查找您的矩阵规则。

as.matrix(x1+x2)%*%t(as.matrix(y))