/* Cluster analysis  */
proc cluster data=distno method=centroid
                pseudo rsquare outtree=tree print=20;
      id pointid;
var p10s17p1--pss9p169;
   run;