Программирование R: Получить все простые числа до заданного числа

Программирование R: базовое упражнение-6 с решением

Напишите программу на R, чтобы получить все простые числа до заданного числа (на основе сита Эратосфена).

Пример решения :

Код программирования R:

prime_numbers <- function(n) {
if (n >= 2) {
 x = seq(2, n)
 prime_nums = c()
 for (i in seq(2, n)) {
 if (any(x == i)) {
 prime_nums = c(prime_nums, i)
 x = c(x[(x %% i) != 0], i)
 }
 }
 return(prime_nums)
 }
 else 
 {
 stop("Input number should be at least 2.")
 }
 } 
prime_numbers(12)

Пример вывода:

 [1] 2 3 5 7 11                         

Редактор кода программирования R:

Есть другой способ решить это решение? Внесите свой код (и комментарии) через Disqus.

Предыдущий: Напишите программу R, чтобы получить первые 10 чисел Фибоначчи.
Далее: Напишите R-программу для печати чисел от 1 до 100 и напечатайте «Fizz» для кратных 3, напечатайте «Buzz» для кратных 5 и напечатайте «FizzBuzz» для кратных обоих.