function [Xn,y,control_1,control_2,control_3,control_4] =remove_empty_countries(Xn,y,control_1,control_2,control_3,control_4)
% Functio to remove countries in dataset where all observations in cotrols are empty

Empty   = all(isnan(control_1),2)+ all(isnan(control_2),2) ...
        + all(isnan(control_3),2)+ all(isnan(control_4),2);
        
Empty = Empty > 0;

Xn(Empty) = [];
y(Empty,:) = [];
control_1(Empty,:) = [];
control_2(Empty,:) = [];
control_3(Empty,:) = [];
control_4(Empty,:) = [];
end