Это мой кодkum.loglik Функция возвращает отрицательное логарифмическое правдоподобие и принимает два аргумента a и b. Мне нужно найти a и b, которые минимизируют эту функцию, используя функцию optim. (n1, n2, n3 предварительно определены и переданы в функцию optim.

kum.loglik = function(a, b, n1, n2, n3) {
  loglik = n1*log(b*beta(1+2/a,b)) + n2 * log(b*beta(1+2/a,b)-2*b*beta(1+1/a,b)+1) +
    n3 * log(b*beta(1+1/a,b)-b*beta(1+2/a,b))
  return(-loglik)
}
optim(par=c(1,1), kum.loglik, method="L-BFGS-B",
      n1=n1, n2=n2, n3=n3,
      control=list(ndeps=c(5e-4,5e-4)))

Этот код должен работать хорошо, но выдает сообщение об ошибке

Error in b * beta(1 + 2/a, b) : 'b' is missing

Что не так в этом коде?