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

Question

меня есть код

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.") 
    } 
} 

с ошибкой Error: unexpected '}' in "}". Однако все кажется идеальным с }, но я не ошибаюсь. Может ли кто-нибудь сказать мне, где моя ошибка?

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