我想写一个函数来对分数求和。 x
是分子,n
是x
的最大值。如果x/c
,我想将c = x+1
的所有分数相加,如果c == y
则停止。
例如,如果x = 1
和y = 4
1/1 + 1/2 + 1/3 + 1/4 = 2.083333
或者,如果x = 2
和y = 5
2/1 + 2/2 + 2/3 + 2/4 + 2/5 = 4.566667
我尝试了一段时间循环,但我认为它甚至没有关闭:
score <- function(x, y){
while (c < y){
c <- x/1
c <- x/c+1
}
}
答案 0 :(得分:2)
编辑:尽可能避免R中的循环。
f <- function(x,y) x * sum(1/(1:y))