我想写一个函数来求和分数。 x
是分子和n
最大的x
。我想对x/c
的所有分数进行求和,如果c = x+1
和如果c == y
停止。R中分数之和的函数
例如,如果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
}
}
获得幻想和回答为分数:'评分< - 函数(X,Y){MASS ::馏分(总和(X/seq.int(Y)))}' – alistaire