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 6bc9159..8659580 100644 --- a/R/estUtil.R +++ b/R/estUtil.R @@ -69,7 +69,7 @@ levbmqdt <- function(...,obj,theta0,N,opt){ break } } - theta <- theta0 + # theta <- theta0 e <- e[1:N,] sigma2 <- sum(e^2)/df vcov <- 1/N*Hinv*sigma2 |