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