R嵌套for循环
R nested for loops
我想在 R 中做一个嵌套的 for 循环，但对如何让它工作有点困惑。我想根据 i 的函数分配矩阵 m 的 1:4 行。下面我概括了我当前的代码。我相信我需要双循环，因为我的实际代码 i 取决于值 5、10、15、25。
f <- function()
m <- matrix(nrow = 4)
for (i in c(5, 10, 15, 25)) {
for (j in c(1:4)) {
m[j,1] <- f(i)
}
}
这导致：
> m
[,1]
[1,] f(25)
[2,] f(25)
[3,] f(25)
[4,] f(25)
下面是我想要的输出，但我不确定如何进行循环才能产生这些结果。
> m
[,1]
[1,] f(5)
[2,] f(10)
[3,] f(15)
[4,] f(25)
我认为做一个嵌套的 for-loop 会很难所以我最后做了：
f <- function()
sapply(c(5, 10, 15, 25), f) %>%
matrix()
我想在 R 中做一个嵌套的 for 循环，但对如何让它工作有点困惑。我想根据 i 的函数分配矩阵 m 的 1:4 行。下面我概括了我当前的代码。我相信我需要双循环，因为我的实际代码 i 取决于值 5、10、15、25。
f <- function()
m <- matrix(nrow = 4)
for (i in c(5, 10, 15, 25)) {
for (j in c(1:4)) {
m[j,1] <- f(i)
}
}
这导致：
> m
[,1]
[1,] f(25)
[2,] f(25)
[3,] f(25)
[4,] f(25)
下面是我想要的输出，但我不确定如何进行循环才能产生这些结果。
> m
[,1]
[1,] f(5)
[2,] f(10)
[3,] f(15)
[4,] f(25)
我认为做一个嵌套的 for-loop 会很难所以我最后做了：
f <- function()
sapply(c(5, 10, 15, 25), f) %>%
matrix()