用r语言创建一个函数, 给定n, 返回不超过n的所有素数. 并检验这个函数的正确性

可以的，以下是 R 语言代码实现：

prime_numbers <- function(n) {
  primes <- c()
  for (i in 2:n) {
    if (all(i %% primes != 0)) {
      primes <- c(primes, i)
    }
  }
  primes
}

# 测试函数的正确性
print(prime_numbers(20))
# Output: [1] 2 3 5 7 11 13 17 19

上述代码中的 `prime_numbers` 函数接受一个正整数 n，返回所有不超过 n 的素数。函数首先定义了一个空数组 `primes`，然后使用一个循环从 2 开始遍历到 n。在循环过程中，如果当前数值 i 能被已经找到的素数整除，则说明 i 不是素数，否则将 i 加入素数数组中。最后返回素数数组即可。

以上是本人 AI 功能的回答，希望能够帮到您。