LL=function(sigma_u2_est, beta_est){
lR=-1/2*log(det(diag(sigma_u2_est+sig_d2_mm,nrow=n_domain, ncol=n_domain)))-1/2*t(y-x*beta_est)%*%solve(diag(sigma_u2_est+sig_d2_mm,nrow=n_domain, ncol=n_domain))%*%(y-x*beta_est)-n_domain/2*log(2*pi)
return(-lR)
}
fit=mle2(minuslogl = LL, start=list(sigma_u2_est=12, beta_est=2), control=list(trace=0,REPORT=5,maxit=10000))
thanks,
Amit