From f0242cac8f81ad471069b0e40226cea585e85a73 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Sun, 14 Feb 2016 11:35:52 +0530
Subject: minor bug fix

---
 R/estUtil.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'R')

diff --git a/R/estUtil.R b/R/estUtil.R
index 2d1a76f..474aa5d 100644
--- a/R/estUtil.R
+++ b/R/estUtil.R
@@ -13,7 +13,6 @@ levbmqdt <- function(...,obj,theta0,N,opt){
   l <- obj(theta=theta0,e=NULL,dots)
   e <- l$Y-l$X%*%theta0
   sumsq0 <- sum(e^2)/N
-  theta <- theta0
   
   # variable to count the number of times objective function is called
   countObj <- 0
@@ -70,7 +69,7 @@ levbmqdt <- function(...,obj,theta0,N,opt){
       break
     } 
   }
-  
+  theta <- theta0
   e <- e[1:N,]
   sigma2 <- sum(e^2)/df
   vcov <- 1/N*Hinv*sigma2
-- 
cgit