diff options
| author | Suraj Yerramilli | 2016-02-14 12:11:06 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-02-14 12:11:06 +0530 |
| commit | 767b590187c999bc5e222701f9bd350dc704540e (patch) | |
| tree | 393e687d647a659a6ef79b674f0884c5b3419137 /R/estUtil.R | |
| parent | 1d5f3b42361c11ce914365564da65e9700e6ea1c (diff) | |
| download | SysID-R-code-767b590187c999bc5e222701f9bd350dc704540e.tar.gz SysID-R-code-767b590187c999bc5e222701f9bd350dc704540e.tar.bz2 SysID-R-code-767b590187c999bc5e222701f9bd350dc704540e.zip | |
reverting back search direction
Diffstat (limited to 'R/estUtil.R')
| -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 |