Using <<- operator

SeewooLi · May 29, 2024 · 404f287 · 404f287
1 parent 42599ce
commit 404f287
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/non_exporting_functions.R b/R/non_exporting_functions.R
@@ -984,13 +984,13 @@ 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)
 
-          mle <- append(mle, NA)
-          se <- append(se, NA)
+          mle <<- append(mle, NA)
+          se <<- append(se, NA)
         }
       )
     }