R中分數之和的函數

Question

我想寫一個函數來求和分數。 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 
    } 
} 

Answer 1

編輯：儘可能避免在R中出現環路。

f <- function(x,y) x * sum(1/(1:y))