用R语言写一个数列求和

球球，怎么用R语言写一个数列求和，1加1/2加到1/n，当总和大于100的时候导出n的值。

a=1;s=0
qing <- function(x){
  for (i in 1:n){
   s=s+1/i
   if(s>100){
      print(sum)}
      return

  }

  }

qing(12)

使用while循环，由于循环次数较多，需要运行时间较长，你可以用和值较小的数来测试下，参考代码如下：

setwd('F:/2021/qa/ot2/rtest')
summ<-0
i<-1
while (summ<=10){
    summ=summ+1/i
    i=i+1
} 
print(i)

运行结果：

r$> source('r24.r')
[1] 12368

如果有帮助请点一下我回答右上方的采纳，谢谢！