Add NA option to

nk027 · Feb 20, 2020 · 805a811 · 805a811
1 parent 4bf76fd
commit 805a811
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/62_sign_restr.R b/R/62_sign_restr.R
@@ -28,7 +28,7 @@ sign_restr <- function(sigma_chol, sign_restr, M, sign_lim = 10000) {
 
   counter <- 0
   sign_vec <- as.vector(sign_restr)
-  restricted <- which(sign_vec != 0)
+  restricted <- which(sign_vec != 0 | !is.na(sign_vec))
 
   while(TRUE) {
     counter <- counter + 1