results<-optim(c(initial_alpha11,initial_alpha22,initial_lambda1,initial_lambda2,initial_gam1),nLL,method="BFGS",control=list(maxit=500))$par
Error in optim(c(initial_alpha11, initial_alpha22, initial_lambda1, initial_lambda2, :
optim内的目标函数长度被评估为10，而不是一
不明白是什么意思，应该怎么改呢
检查代码