R语言 自定义函数 条件求和

Question

创建一个用户定义的函数，如果输入x和n，该函数计算从1到n中所有x的倍数之和（例如，输入3和10将输出18）。

下面是我写的代码，运行不出来， 希望大家帮我看一下

sumN=function(x,n){
   i = 0
   for(x in 1:n){
    if(n%%x==0)
      i=i+x
  }
}
sumN(3,10)

Answer 1

在函数内少写了打印语句。在代码中最后两个}之间加上一句print(i)即可。

sumN<-function(x,n){

   i = 0

   for(x in 1:n){

    if(n%%x==0)

      i=i+x   

  } 

    print(i) 

}

sumN(3,10)