diff options
| -rw-r--r-- | R/estUtil.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/estUtil.R b/R/estUtil.R index acc45e8..474aa5d 100644 --- a/R/estUtil.R +++ b/R/estUtil.R @@ -31,7 +31,7 @@ levbmqdt <- function(...,obj,theta0,N,opt){ H <- 1/N*t(l$grad)%*%l$grad + d*diag(dim(theta0)[1]) Hinv <- solve(H); - theta <- theta0 - Hinv%*%g + theta <- theta0 + Hinv%*%g # Evaulate sum square error fn <- l$Y-l$X%*%theta |