# 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

# 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