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

创建一个用户定义的函数，如果输入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)

在函数内少写了打印语句。在代码中最后两个}之间加上一句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)

if(n%%x==0)多了一个%，改为 if(n%x==0)

您好，我是有问必答小助手，你的问题已经有小伙伴为您解答了问题，您看下是否解决了您的问题，可以追评进行沟通哦~

如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～

ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632

非常感谢您使用有问必答服务，为了后续更快速的帮您解决问题，现诚邀您参与有问必答体验反馈。您的建议将会运用到我们的产品优化中，希望能得到您的支持与协助！

速戳参与调研>>>https://t.csdnimg.cn/Kf0y