From 4ea181410b17ac2cd2d99fa686651f19d747a192 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Fri, 12 Feb 2016 13:32:24 +0530
Subject: minor corrections

---
 R/estUtil.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R/estUtil.R')

diff --git a/R/estUtil.R b/R/estUtil.R
index 989b910..a526d4d 100644
--- a/R/estUtil.R
+++ b/R/estUtil.R
@@ -17,7 +17,6 @@ levbmqdt <- function(...,obj,theta0,N,opt){
   update <- 1 
   # variable to count the number of times objective function is called
   countObj <- 0
-  sumSqDiff <- 1
   
   repeat{
     i=i+1
@@ -32,6 +31,7 @@ levbmqdt <- function(...,obj,theta0,N,opt){
       
       termPar <- norm(g,"2")/sumsq0/100
       if(termPar < tol) break
+      
       # Evaulate sum square error
       fn <- l$Y-l$X%*%theta
       sumsq <- sum(fn^2)
@@ -53,7 +53,7 @@ levbmqdt <- function(...,obj,theta0,N,opt){
       } 
     }
 
-    if(termPar < tol)||(i == maxIter)) break
+    if((termPar < tol)||(i == maxIter)) break
   }
   
   if(termPar < tol){
-- 
cgit