Question

我是编写循环函数的新手，我正试图解决这个问题。我希望y矩阵填充从for循环获得的值。不幸的是，在循环执行后，y仍然是空白的并且已经为0。

mv <- c(0,1,2)  # location vector
s <- 1          # scale
increment <- seq(-6,6,0.01)             # Create a sequence of x values
y=matrix(0,length(increment),length(mv))

for (i in length(increment)) {
        for (j in length(mv)) {
                y[i,j] <- 1/(1+ exp(-(increment[i]-mv[j])/s))
        }
}

Answer 1

将循环更改为从1开始，现在只使用1个值（length(increment)）：

for (i in 1:length(increment)) {
        for (j in 1:length(mv)) {
                y[i,j] <- 1/(1+ exp(-(increment[i]-mv[j])/s))
        }
}

对于具有两个下标的循环函数

1 个答案: