R 编程帮助编写函数

Question

我正在尝试编写一个代码来显示一个向量，该向量将只显示不能被 2,3 或 7 整除的元素。

function2 <- function(x){
    k <- length(x)
    for(i in 1:x){
        if(i%%2!=0 | i%%3!=0 | i%%7!=0){
            return x[i]
        }
    }
}

它一直给我错误。谁能帮忙？

我对编写代码还是很陌生，而且总是遇到麻烦。

如有任何改进建议，我们将不胜感激。

谢谢。

我做了一些更改，出现了另一条警告消息。

function2 <- function(x) {
    k <- length(x)
    for(i in 1:x){
        if(i%%2!=0 | i%%3!=0 | i%%7!=0) {
            show(x[i])
        } else {
            i <- i+1
        }
        print(x[i])
    }
}

x <- 1:100
function2(1:100)
## [1] 1
## [1] 1
## Warning message:
## In 1:x : numerical expression has 100 elements: only the first used

> foo <- function(x) {
+     x[(x %%2 != 0) | (x %% 3 != 0) | (x %% 7 != 0)]
+ }
> foo(1:100)
 [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19
[20]  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37  38
[39]  39  40  41  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58
[58]  59  60  61  62  63  64  65  66  67  68  69  70  71  72  73  74  75  76  77
[77]  78  79  80  81  82  83  85  86  87  88  89  90  91  92  93  94  95  96  97
[96]  98  99 100

Answer 1

您需要“和”运算符 & 而不是“或”|。此外，无需循环，您可以利用 R 的矢量化。

foo <- function(x) {
    x[(x %% 2 != 0) & (x %% 3 != 0) & (x %% 7 != 0)]
}
foo(1:50)
# [1]  1  5 11 13 17 19 23 25 29 31 37 41 43 47

不写函数也可以做到

x <- 1:50
x[(x %% 2 != 0) & (x %% 3 != 0) & (x %% 7 != 0)]
# [1]  1  5 11 13 17 19 23 25 29 31 37 41 43 47