爲什麼不在R的這個`if`語句中分配這個對象？

Question

我試圖通過使用R.

如果我在函數中使用cat我能得到正確的值的列表中選擇此ProjectEuler問題努力學習R：

> n <- 1:9 
> s <- 0 
> ck <- function(n) 
+ for(i in n) 
+  if(i/3 == round(i/3) | i/5 == round(i/5)) cat(i) 
> ck(n) 
3569> 

，但如果我嘗試分配這些對他們總結它不起作用：

> n <- 1:9 
> s <- 0 
> ck <- function(n) 
+ for(i in n) 
+  if(i/3 == round(i/3) | i/5 == round(i/5)) s <- c(s, i) 
> ck(n) 
> s 
[1] 0 
> 

爲什麼不第二個函數的工作？

謝謝。

Answer 1

全局/本地混淆。定義s內部的ck()，並返回它。類似於

ck <- function(n) { 
    s <- 0 
    for(i in n) { 
     if(i/3 == round(i/3) | i/5 == round(i/5)) { 
     s <- c(s, i) 
     } 
    } 
    s 
    }