0
mylike <- function(thetha){
  result <- sum((lchoose(2*pi*sigma(nlmodel)^2)*
                   (exp((-1/(2*sigma(nlmodel)^2))*
                          (2*x + thetha[2]+thetha[1])/(thetha[2]+x)))))
  return(-result)
                }

Error in lchoose(2 * pi * sigma(nlmodel)^2) : argument "k" is missing, with no default

0 Answers0