0

我知道很多人已经发布了这个问题,我确实查看了编写代码的答案,但它仍然无法正常工作......有人可以指出我做错了什么吗?提前谢谢了!

for(j in 1:1000){

        for(i in 1:52){

                   if (i == 1){
                        r.sims[i,] <- r.sims[1]
                        }
                 else if (i == 2){
                       r.sims[i,] <- r.sims[2]
                       }
                 else (i > 2){
                               r.sims[i,] <- r.sims[i-1,]*ar1 + r.sims[i-2,]*ar2 + e.sims[i,] + e.sims[i-1,]*ma1
                           }

                       }

                }

我有以下错误

Error: unexpected '{' in:
"       }
             else (i > 2){"
>                                r.sims[i,] <- r.sims[i-1,]*ar1 + r.sims[i-2,]*ar2 + e.sims[i,] + e.sims[i-1,]*ma1
Error in r.sims[i, ] <- r.sims[i - 1, ] * ar1 + r.sims[i - 2, ] * ar2 +  : 
  replacement has length zero
>                    }
Error: unexpected '}' in "                   }"
>                    
>                        }
Error: unexpected '}' in "                       }"
> 
>                 }
Error: unexpected '}' in "                }"
> 
4

2 回答 2

0

您似乎误解了else.

elseif涵盖所有与之前的orelse if语句不匹配的情况。因此,您不能为 指定任何条件else

涵盖所有i不使用12仅使用else,不带任何()括号的情况。

如果您想有条件,请使用else if (condition).

于 2013-10-15T08:55:37.480 回答
0

在不了解您的代码应该做什么的情况下,我仍然举了一个示例来说明您如何修复脚本。{...}我认为关键是您需要在语句之后提供大括号else,以便它考虑以下代码。

例子:

r.sims <- matrix(runif(52)*100, nrow=52, ncol=100)
e.sims <- matrix(runif(52)*100, nrow=52, ncol=100)

ma1 <- 1
ar1 <- 2
ar2 <- 3

for(j in 1:1000) {
    for(i in 1:52) {
        if (i == 1) {
            r.sims[i,] <- r.sims[1]
        } else {
            if(i == 2) {
                r.sims[i,] <- r.sims[2]
            } else {
                if(i > 2) {
                    r.sims[i,] <- r.sims[i-1,]*ar1 + r.sims[i-2,]*ar2 + e.sims[i,] + e.sims[i-1,]*ma1
                }
            }
        }
    }
}
于 2013-10-15T09:25:37.803 回答