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