From 72844ed965f645357664919f0803e25d75623ab7 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Tue, 15 Mar 2016 16:43:52 +0530
Subject: minor changes

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

diff --git a/R/estUtil.R b/R/estUtil.R
index 676adb5..043eadc 100644
--- a/R/estUtil.R
+++ b/R/estUtil.R
@@ -12,7 +12,7 @@ levbmqdt <- function(...,obj,theta0,N,opt){
   i <- 0
   l <- obj(theta=theta0,e=NULL,dots)
   e <- l$e; grad <- l$grad
-  sumsq0 <- sum(l$fn^2)/df
+  sumsq0 <- sum(e^2)/df
   
   # variable to count the number of times objective function is called
   countObj <- 0
@@ -68,7 +68,6 @@ levbmqdt <- function(...,obj,theta0,N,opt){
     } 
   }
   # theta <- theta0
-  e <- l$fn
   sigma2 <- sum(e^2)/df
   vcov <- 1/df*Hinv*sigma2
   
-- 
cgit