Ошибка: неожиданный '}'

Question

Я пытаюсь создать случайные данные. В принципе, я скопировал этот код из книги, но это не работает для меня. Он работает до тех пор, пока не достигнет строки указанной в предупреждении:

Error: unexpected '}' in: 
"+ this.seg[,j] <- rnorm(segSize[i], mean=segMeans[i,j], sd=segSDs[i,j]) 
+ }" 

Код выглядит следующим образом:

for (i in seq_along(segNames)) { 
    + cat(i, segNames[i], "\n") 
    + 
    + # empty matrix to hold this particular segment’s data 
    + this.seg <- data.frame(matrix(NA, nrow=segSize[i], ncol=length(segVars))) 
    + 
     + # within segment, iterate over variables and draw appropriate random data 
     + for (j in seq_along(segVars)) { # and iterate over each variable 
     + if (segVarType[j] == "norm") { # draw random normals 
      + this.seg[,j] <- rnorm(segSize[i], mean=segMeans[i,j], sd=segSDs[i,j]) 
      + } else if (segVarType[j] == "pois") { # draw counts 
      + this.seg[, j] <- rpois(segSize[i], lambda=segMeans[i, j]) 
      + } else if (segVarType[j] == "binom") { # draw binomials 
       + this.seg[, j] <- rbinom(segSize[i], size=1, prob=segMeans[i, j]) 
       + } else { 
       + stop("Bad segment data type: ", segVarType[j]) 
       + } 
     + } 
    + # add this segment to the total dataset 
     + seg.df <- rbind(seg.df, this.seg) 
     + } 

Может кто-нибудь объяснить, почему это заклинивание на этой линии, и что должно быть изменено? Благодаря!

Answer 1

Вам необходимо скопировать код без знака «+» ... тогда код работает!