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

このエラーは、親が見つからない場合によく見られます。括弧に一致するエディターを自分で入手するか、スペースと改行をより自由に使用する方法を学んでください。この Web ページの末尾からスクロールする 5 行目には、右括弧がありません。

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 に答える