loadall

clf
hold on
x=[];
for i=1:size(heritage_country,1)
  loc=find(strcmp(heritage_country(i),fraser_country));  
  if (~isempty(loc))
    if (~isnan(heritage_freedom(i)) & ~isnan(fraser_freedom(loc)))
      plot(heritage_freedom(i),fraser_freedom(loc),'.')
      gg=text(heritage_freedom(i),fraser_freedom(loc)-.07,fraser_country(loc));
      set(gg,'HorizontalAlignment','center');
      set(gg,'FontSize',[6]);
      x=[x; heritage_freedom(i),fraser_freedom(loc)];
    end
  else
    heritage_country(i)
  end
end
gg=xlabel('Heritage Index');
set(gg,'FontSize',[20]);
gg=ylabel('Fraser Index');
set(gg,'FontSize',[20]);
text(1.3,3.7,'Free');
text(4.7,3.7,'Unfree');

gg=text(0.8,8.5,'Free');
set(gg,'Rotation',[90]);
gg=text(0.8,4.5,'Unfree');
set(gg,'Rotation',[90]);

r=corrcoef(x);
r=r(1,2);