% time1674 and data1674 available for use
% for Country risk premium Switzerland - ref. Germany
% 
% time1673 and data1673 available for use
% for Country risk premium Netherlands - ref. Germany
% 
% time1672 and data1672 available for use
% for Country risk premium Greece - ref. Germany
% 
% time1671 and data1671 available for use
% for Country risk premium Portugal - ref. Germany
% 
% time1670 and data1670 available for use
% for Country risk premium Italy - ref. Germany
% 
% time1669 and data1669 available for use
% for Country risk premium Spain - ref. Germany
% 
% time1668 and data1668 available for use
% for Country risk premium Japan - ref. Germany 
% 
% time1667 and data1667 available for use
% for Country risk premium France - ref. Germany 
% 
% time1666 and data1666 available for use
% for Country risk premium United Kingdom - ref. Germany 
% 

countries = {'United States','United Kingdom','France','Japan','Spain','Italy','Portugal','Greece','Switzerland'};

myMarker = {'*','+','s','d','o','*','+','s','d','o'};
myLine = {'-',':','--','-',':','--','-',':','--','-'};
myColor = {'b','k','g','r','m','g','r','k','m','b'};

time = [time1665, time1666, time1667, time1668, time1669,  time1670, time1671, time1672, time1674];
data = [data1665, data1666, data1667, data1668, data1669, data1670, data1671, data1672, data1674];

hold on;
for i = 1:length(countries)
   plot(time(:,i), data(:,i), 'color', myColor{i},'lineStyle',myLine{i},'marker',myMarker{i})
end
plot(xlim,[0 0],'k:');
datetick
title({'\bfCountry Risk Premium evolution - ref.country: Germany'})
legend(countries,'location','EastOutside')
xlabel('Date')
ylabel('Risk Premium')