我在 "}"'' 中收到错误 'Error: unexpected '}' 。 我的括号在哪里放错了？

Question

N <- 10000 ; 
one_side_normal <- function(N) {
  f <- numeric(N);
  for (i in 1:N) {
    X = rexp(1,rate=1);
    uniform = runif(1);
    while (uniform>exp((-X^2)+X) {
      X = rexp(1,rate=1);
      uniform=runif(1);
    }
    f[i] <- X
  }
  return(f)
}

我的代码在上面。 我正在尝试使用接受拒绝方法从一侧正态分布生成 10000 个随机样本。 你能强调一下我括号里的错误在哪里吗？

Answer 1

while步骤缺少右括号

 ...
 while (uniform>exp((-X^2)+X) )   {
                              ^
 ...