R语言 计算nCr值的自然对数 – lchoose() 函数

R语言中的 lchoose() 函数是用来返回nCr值的自然对数的。这个函数等于log(choose(x))。

语法： lchoose(n, r)

参数：

n： 元素的数量

r： 组合的数量

例1 :

# R program to illustrate
# lchoose function
  
# Calling lchoose() function
answer1 <- lchoose(3, 2)  
answer2 <- lchoose(2, 2)   
answer3 <- lchoose(7, 3) 
    
print(answer1)  
print(answer2)  
print(answer3)  

输出

[1] 1.098612
[1] 0
[1] 3.555348

例2 :

# R program to illustrate
# lchoose function
   
# Calling lchoose() function which 
# is equivalent to log(choose(x))
answer1 <- log(choose(5, 1))  
answer1_2 <- lchoose(5, 1)
answer2 <- log(choose(4, 2))   
answer2_2 <- lchoose(4, 2)
  
# Printing values
print(answer1)  
print(answer1_2)  
print(answer2)  
print(answer2_2)  

输出

[1] 1.609438
[1] 1.609438
[1] 1.791759
[1] 1.791759

在这里，在上述代码中，log(choose())和lchoose()的输出是相等的，这表明两个函数是等价的。