0

我用 Tinn-R 编写了我的程序。当我使用 source() 在 R 中运行它时，显示了一条错误消息。以下示例仅包括部分循环。

          for (nn in 1:length(nSim))  ##whether the right loop???
              {
              r.all <- c()
              p.final <- array(0, c(15,5))  #1-5 a, b1, b2, b3, b4; 6 group id
              r.reference <- cbind(GRM_sim(t(p.sample[,1]), t(p.sample[,2:5]),sample.all[iS],0,rep(1,sample.all[iS]))

            DIF_ID <-c()
            DIF_index <- rep(0,15)
            for (iC in 1:length(CDIF))
            {
              if (CDIF[iC]==1)
              {
                DIF_ID <- sample(1:15,DIF.all[iDIF.all])   ##consistent DIF 
              }
               for (id in 1:length(DIF_ID))
               {
                  DIF_index[DIF_ID[id]] <-1
               }
              ...

源错误（“120413consistentMH.R”）：120413consistentMH.R:107:17：意外符号 106：
107：DIF_ID

谢谢你的时间。

4

1 回答 1

3

该错误是缺少括号的典型错误。给自己找一个匹配括号的编辑器，或者学习更自由地使用空格和回车。滚动到此网页末尾的第五行缺少结束括号：

r.reference <- cbind(GRM_sim( t( p.sample[,1]  ), 
                              t( p.sample[,2:5]), 
                               sample.all[iS],0, 
                              rep(1, sample.all[iS])
                               )
                      ^
            missing paren here
于 2012-04-16T03:42:27.597 回答