[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 

Answer 2

已經有上表中的矢量解決方案，它是迄今爲止最好，但我認爲建設實際運行將一個循環任務也是有用的。您初始化了一個循環長度值k，但從未使用它，而是在1:x上循環。這是第一個基本錯誤（超過使用"|"而不是"&"已經指出）。另一個錯誤是沒有保存有效結果的累加器，這些結果可能在運行循環後返回。而第三個邏輯錯誤是測試循環指數的值，而不是值的x：

function2=function(x){ 
    k=length(x); val <- c() 
    for(i in 1:k){ # probably should have used seq_along(x), and skip 'k' 
     if(!(x[i]%%2==0 | x[1]%%3==0 | x[i]%%7==0)){ # could have used `"||"` 
         val <- c(val,x[i])   } 
       } 
    return (val)  } # don't need the return(), could just evaluate `val` 

x<-(1:100) 
function2(1:100) 
[1] 1 3 5 9 11 13 15 17 19 23 25 27 29 31 33 37 39 41 43 45 47 51 53 55 57 59 
[27] 61 65 67 69 71 73 75 79 81 83 85 87 89 93 95 97 99