我可以使用apply family来替换for循环吗？

Question

set.seed(4286)
n <- 4
k <- 5
V <- sample(seq(4), size=k, replace=TRUE)
M <- matrix(rnorm(n*k), ncol=k)
X <- M
for(i in seq(n)){
    X[i,] <- round(M[i,]/V, 2)
}

如何使用apply系列来完成相同的工作，而不是使用for循环？

Answer 1

这是申请等同物。结果需要默认转置。

t(apply(M, 1, function(x) round(x/V, 2)))