Returning step-size to halfstep

SeewooLi · May 20, 2024 · cbe076b · cbe076b
1 parent abb0c1a
commit cbe076b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/non_exporting_functions.R b/R/non_exporting_functions.R
@@ -969,7 +969,7 @@ WLE_theta <- function(item, data, type){
         l1l2 <- L1L2_Poly(th, item, data, type, ncat,i )
         diff <- (l1l2[1]+wle(th, item[!is.na(data[i,]),], type))/l1l2[2]
         if(abs(diff)>thres){
-          th <- th - sign(diff)*thres/2
+          th <- th - diff/2
         } else{
           th <- th - diff
           thres <- abs(diff)