如何解决R,未知数量的向量/矩阵的成对乘积
我想在基数 R 中制作可变数量的矩阵/向量的成对乘积。
我只有这个丑陋的解决方案(丑陋的是 <<-
),但直觉上认为存在更好的 - 也许是递归的 - 方式,或者甚至是一个函数。我需要一个成对版本的 prod
。
f1 <- function(...) {
input <- list(...)
output <- input[[1]]
sapply(2:length(input),function(m) output <<- output*input[[m]])
return(output)
}
m1 <- matrix(1:6,ncol = 2)
m2 <- matrix(6:1,ncol = 2)
m3 <- 1/matrix(6:1,ncol = 2)
all(f1(m1,m2,m3) == m1*m2*m3) #[1] TRUE
解决方法
使用Reduce
:
f1 <- function(...) {
Reduce(`*`,list(...))
}
all(f1(m1,m2,m3) == m1*m2*m3)
#[1] TRUE
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。