From 3b592534164da74ab8cd43d04cf9cd0ab158deb0 Mon Sep 17 00:00:00 2001
From: Johannes Pfeifer <jpfeifer@gmx.de>
Date: Fri, 14 Jan 2022 08:47:37 +0100
Subject: [PATCH] occbin: fix bug if there is only a surprise shock in the
 first period

---
 matlab/+occbin/setup.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/matlab/+occbin/setup.m b/matlab/+occbin/setup.m
index f2dab58a43..77c984c22f 100644
--- a/matlab/+occbin/setup.m
+++ b/matlab/+occbin/setup.m
@@ -56,7 +56,7 @@ if isfield(M_,'surprise_shocks') && ~isempty(M_.surprise_shocks)
         ivar = M_.surprise_shocks(ii).exo_id;
         temp(M_.surprise_shocks(ii).periods,ivar) = M_.surprise_shocks(ii).value;
     end    
-    shock_index=~all(temp==0);
+    shock_index=~all(temp==0,1);
     options_.occbin.simul.SHOCKS=temp(:,shock_index);
     options_.occbin.simul.exo_pos=find(shock_index);
 end
-- 
GitLab