用R语言编写求和函数，求1～200所有函数的和

用R语言编写求和函数，求1～200所有函数的和

这样定义一个求和函数即可，

getwd()
summ=0
add<-function(x){
    for (i in 1:length(x))
    {summ=summ+x[i]}
    return(summ)
}
res=add(seq(200))
print(res)

运行结果：

r$> source('r17.r')
[1] 20100