Remove <<- for the upper tryCatch block

SeewooLi · May 29, 2024 · 54fbb23 · 54fbb23
1 parent 404f287
commit 54fbb23
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/non_exporting_functions.R b/R/non_exporting_functions.R
@@ -984,8 +984,8 @@ WLE_theta <- function(item, data, type){
               thres <- abs(diff)
             }
           }
-          mle <<- append(mle, th)
-          se <<- append(se, sqrt(-1/l1l2[2]))
+          mle <- append(mle, th)
+          se <- append(se, sqrt(-1/l1l2[2]))
         }, error = function(e){
           message("\n","WLE failed to converge for the entry ", i,"\n",sep="",appendLF=FALSE)