R 错误：意外'；}'；

我试图生成一个随机数据。基本上，我从书中复制了这段代码，但是它对我不起作用。其工作直到达到警告中规定的线：

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

错误：中出现意外“}”：
“+this.seg[，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)
      + }