エラー `エラー：予期しない '}' で "}"`

Question

私は、コードエラーError: unexpected '}' in "}"と

Eratosthenes <- function(n) { 
    if (n >= 2) { 
    sieve <- seq(2,n) 
    primes <- c() 
    for (i in seq(2,n)) { 
     if (any(sieve == i)) { 
     primes <- c(primes, i) 
     sieve <- c(sieve[(sieve %% i) ! = 0], i) 
     } 
    } 
    return(primes) 
} else { 
    stop("Input value of n should be at least 2.") 
    } 
} 

を持っています。しかし、すべてが}で完璧と思われますが、私は間違っていません。誰が私の間違いがどこにあるのか教えていただけますか？

Answer 1

問題がここに表示されますsieve <- c(sieve[(sieve %% i) ! = 0], i)。私はあなたが "と等しくない"と思っているので、sieve <- c(sieve[(sieve %% i) != 0], i)でなければなりません。

Eratosthenes <- function(n) { 
    if (n >= 2) { 
    sieve <- seq(2,n) 
    primes <- c() 
    for (i in seq(2,n)) { 
     if (any(sieve == i)) { 
     primes <- c(primes, i) 
     sieve <- c(sieve[(sieve %% i) != 0], i) 
     } 
    } 
    return(primes) 
    } else { 
    stop("Input value of n should be at least 2.") 
    } 
} 

Answer 2

Rと私はあなたのコードの裁判官になることはできませんが、内側のIFステートメントに括弧がありませんか？このような

：

for (i in seq(2,n)) { 
     if (any(sieve == i)) { 
      primes <- c(primes, i) 
      sieve <- c(sieve[(sieve %% i) != 0], i) 
     } 
}