debug example

bsvars · Jul 17, 2024 · b0985f8 · b0985f8
1 parent cec92cd
commit b0985f8
Showing 1 changed file with 6 additions and 9 deletions.
diff --git a/R/specify.R b/R/specify.R
@@ -480,10 +480,9 @@ specify_identification_bsvarSIGN = R6::R6Class(
         missing_all = FALSE
       }
       if (missing(sign_relation)) {
+        sign_relation = matrix(rep(NA, N^2), ncol = N, nrow = N)
         if (missing_all) {
-          sign_relation = diag(N)
-        } else {
-          sign_relation = matrix(rep(NA, N^2), ncol = N, nrow = N)  
+          diag(sign_relation) = 1
         }
       }
 
@@ -570,10 +569,9 @@ specify_identification_bsvarSIGN = R6::R6Class(
         missing_all = FALSE
       }
       if (missing(sign_relation)) {
+        sign_relation = matrix(rep(NA, N^2), ncol = N, nrow = N)
         if (missing_all) {
-          sign_relation = diag(N)
-        } else {
-          sign_relation = matrix(rep(NA, N^2), ncol = N, nrow = N)  
+          diag(sign_relation) = 1
         }
       }
 
@@ -695,10 +693,9 @@ specify_bsvarSIGN = R6::R6Class(
         missing_all = FALSE
       }
       if (missing(sign_relation)) {
+        sign_relation = matrix(rep(NA, N^2), ncol = N, nrow = N)
         if (missing_all) {
-          sign_relation = diag(N)
-        } else {
-          sign_relation = matrix(rep(NA, N^2), ncol = N, nrow = N)  
+          diag(sign_relation) = 1
         }
       }