为什么这个对象没有在 R 的 if 语句中被赋值？

Question

我正在尝试通过使用 R 解决这个 ProjectEuler 问题来学习 R。

如果我在函数中使用cat，我可以获得正确值的列表：

> 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

全球/本地混乱。定义ck()的sinside，并返回。类似的东西

   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
   }