STATISTICS R STUDIO OR R PROGRAMMING

I ONLY NEED HELP WITH THE LAST QUESTION BECAUSE I HAVE MANAGED TO GET THE SOLUTIONS FOR THE REST OF THE QUESTION, I NEED HELP WITHQUESTION C

JC=function(theta, sx, slogx,n) { alpha=theta [1] 1 ambda=theta [2] loglik = -n*log(gamma(alpha) )-lambda*sx + n*alpha* log(lambda) + (alpha-1)*slogx -loglik output = optim(c(1,1), Jc, sx=sum(my_data$Arrivals) , slogx=sum(log(my_data$Arrivals )) , n=3935, hessian=T) Warning messages : 1: In log(lambda) : NaNs produced 2: In log (lambda) : Nans produced In log (lambda) : NaNS produced In log (lambda) : Nans produced In log (lambda) : Nans produced In log (lambda) : NaNs produced In log (lambda) : NaNs produced In log(lambda) : NaNS produced 9: In log(lambda) : NaNs produced 10: In log(lambda) : NaNs produced output # to view the output Spar [1] 1. 02735488 0. 01286977 Svalue [1] 21174. 24 $counts function gradient 111 NA $convergence [1] 0 Smessage NULL Shessian [,1] [, 2] [1 , ] 6223. 278 -306372.7 [2 , ] -306372. 725 24707055.1\f