相关疑难解决方法(0)

对于类赋值,我需要创建一个计算n选择k的函数.我做到了这一点,它适用于小数字(例如6选2),但我应该让它与200选择50,它自然不会.答案太大,R输出NaN或Inf,说:

> q5(200, 50)
[1] "NaN"
Warning message:
In factorial(n) : value out of range in 'gammafn'

我尝试使用日志和指数,但它没有削减它.

q5 <- function (n, k) {
  answer <- log(exp( factorial(n) / ( (factorial(k)) * (factorial(n - k)) )))
  paste0(answer)
}