options ls=72 nodate;
title  'Average judged similarity of countries';
data country;
input (Brazil Zaire Cuba Egypt France India Israel Japan China 
	USSR USA Yugo) (5.2) @62 country $6.;
datalines;
 0                                                           Brazil
 4.83 0                                                      Zaire 
 5.28 4.26 0                                                 Cuba  
 3.44 5.00 5.17 0                                            Egypt 
 4.72 4.00 4.11 4.78 0                                       France
 4.50 4.83 4.00 5.83 3.44 0                                  India 
 3.83 3.33 3.61 4.67 4.00 4.11 0                             Israel
 3.50 3.39 2.94 3.84 4.11 4.50 4.83 0                        Japan 
 2.39 4.00 5.50 4.39 3.67 4.11 3.00 4.17 0                   China 
 3.06 3.39 5.44 4.39 5.06 4.50 4.17 4.61 5.72 0              USSR  
 5.39 2.39 3.17 3.33 5.94 4.28 5.94 6.06 2.56 5.00 0         USA   
 3.17 3.50 5.11 4.28 4.72 4.00 4.44 4.28 5.06 6.67 3.56 0    Yugo  
; 

proc print;

proc mds level=interval out=out similar;

proc print;

proc plot;
   plot dim2*dim1 $ _name_;

run;