大家好,我正在寻找一些编码建议和技巧。我有一个10x10矩阵,如下所示:
mat <- matrix(NA, nrow = 10, ncol = 10)和一个接受两个数字并返回一个简单标量的函数:
fct <- function(x1, x2){
return(x1 * x2)
}我的函数有点复杂,但这只是为了说明的目的。
我想通过将函数fct应用于两个向量来填充矩阵矩阵,比方说:
x1 <- c(1:10)
x2 <- c(1:10)我可以很容易地使用循环,但我想知道是否有人知道更好的方法,比如使用mapply/Map。
谢谢你的帮忙!
发布于 2019-03-11 05:01:20
向量函数,如下所示:
fct <- function(x1, x2){
out <- numeric(length = length(x1))
for(i in seq_along(x1)) {
out[i] <- x1[i] * x2[i]
}
return(out)
}然后应用外部:
outer(x1, x2, fct)会成功的!
谢谢!
https://stackoverflow.com/questions/55091528
复制相似问题