R在循环中创建变量时显示错误消息

Question

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

          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

耽误您时间，实在对不起。

Answer 1

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

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