在for循环中的R环境中的对象的更改值

Question

我正在尝试更改R环境中对象的价值。因此给出了代码。和错误消息：

myco <- function(form, data, start,tol=1e-06,maxit=10000)
{
  env <- new.env(hash = TRUE, parent = environment(form))
  for(i in names(data)) assign(i, data[[i]], envir = env,inherit=T)
  ind <- as.list(start)
  assign("new",ind,envir=env,inherit=T)
  
  
  for(itr in 1:maxit){
    assign("old",new,envir=env,inherit=T)
    grad=deriv(expr=form[[3L]],names(ind))
    attr(eval(grad,envir=env),"gradient")->J
    yh=eval(form[[2L]],env)-eval(form[[3L]],env)
    new=old+MASS::ginv(t(J)%*%J)%*%t(J)%*%yh
    if(sum(abs(new-old))<tol) break
    
  }
  return(new)
}

myco(GDP~A*(Labor^c)*(Capital^b),data=dat,start=list(A=0.05,b=0.5,c=0.5))

错误消息是

分配中的错误（“ new”，Ind，Envir = Env，sashit = t）： 无法更改“ new”''

锁定绑定的值