Fehler: unerwartet '}'

Question

Ich versuche, eine zufällige Daten zu generieren. Grundsätzlich habe ich diesen Code aus dem Buch kopiert, funktioniert aber nicht für mich. Es funktioniert, bis es die Zeile in der Warnung angegeben erreicht:

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

Der Code sieht wie folgt:

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) 
     + } 

Kann jemand erklären, warum es Stucks auf dieser Linie und was muss verändert werden? Vielen Dank!

Answer 1

Sie müssen den Code ohne die "+" Zeichen kopieren ... dann funktioniert der Code!