分数の合計の関数R

Question

分数を合計する関数を書きたいと思います。 xは分子であり、nの最大値はxです。私はx/cのすべての端数を合計し、c = x+1の場合はc == yの場合は停止したいと思います。例えば

、x = 2とy = 5

2/1 + 2/2 + 2/3 + 2/4 + 2/5 = 4.566667 

は、私はwhileループを試してみましたが、私はそれは似ても似つかないと思う場合x = 1とy = 4

1/1 + 1/2 + 1/3 + 1/4 = 2.083333 

あるいは、もし：

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))