Disjoint Clustering Variables

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: VARCLUS                                             */
 /*   TITLE: Disjoint Clustering Variables                       */
 /* PRODUCT: SAS                                                 */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: CLUSTER                                             */
 /*   PROCS: VARCLUS FACTOR                                      */
 /*    DATA:                                                     */
 /*                                                              */
 /* SUPPORT:                             UPDATE:                 */
 /*     REF:                                                     */
 /*    MISC:                                                     */
 /*                                                              */
 /****************************************************************/

title 'Twenty Four Psychological Tests';
title2 'See Pages 124-125 of Harman: Modern Factor Analysis, 2nd Ed';

data psych24(type=corr);
   input _Name_ $ Test1-Test24;
   if _n_=1 then _Type_='N   ';
            else _type_='CORR';
   label
      test1='Visual Perception'           test2='Cubes'
      test3='Paper Form Board'            test4='Flags'
      test5='General Information'         test6='Paragraph Comprehension'
      test7='Sentence Completion'         test8='Word Classification'
      test9='Word Meaning'                test10='Addition'
      test11='Code'                       test12='Counting Dots'
      test13='Straight-Curved Capitals'   test14='Word Recognition'
      test15='Number Recognition'         test16='Figure Recognition'
      test17='Object - Number'            test18='Number - Figure'
      test19='Figure - Word'              test20='Deduction'
      test21='Numerical Puzzles'          test22='Problem Reasoning'
      test23='Series Completion'          test24='Arithmetic Problems';
   datalines;
 DF         146     146     146     146     146
            146     146     146     146     146
            146     146     146     146     146
            146     146     146     146     146
            146     146     146     146
 Test1      1.000   0.318   0.403   0.468   0.321
            0.335   0.304   0.332   0.326   0.116
            0.308   0.314   0.489   0.125   0.238
            0.414   0.176   0.368   0.270   0.365
            0.369   0.413   0.474   0.282
 Test2      0.318   1.000   0.317   0.230   0.285
            0.234   0.157   0.157   0.195   0.057
            0.150   0.145   0.239   0.103   0.131
            0.272   0.005   0.255   0.112   0.292
            0.306   0.232   0.348   0.211
 Test3      0.403   0.317   1.000   0.305   0.247
            0.268   0.223   0.382   0.184  -0.075
            0.091   0.140   0.321   0.177   0.065
            0.263   0.177   0.211   0.312   0.297
            0.165   0.250   0.383   0.203
 Test4      0.468   0.230   0.305   1.000   0.227
            0.327   0.335   0.391   0.325   0.099
            0.110   0.160   0.327   0.066   0.127
            0.322   0.187   0.251   0.137   0.339
            0.349   0.380   0.335   0.248
 Test5      0.321   0.285   0.247   0.227   1.000
            0.622   0.656   0.578   0.723   0.311
            0.344   0.215   0.344   0.280   0.229
            0.187   0.208   0.263   0.190   0.398
            0.318   0.441   0.435   0.420
 Test6      0.335   0.234   0.268   0.327   0.622
            1.000   0.722   0.527   0.714   0.203
            0.353   0.095   0.309   0.292   0.251
            0.291   0.273   0.167   0.251   0.435
            0.263   0.386   0.431   0.433
 Test7      0.304   0.157   0.223   0.335   0.656
            0.722   1.000   0.619   0.685   0.246
            0.232   0.181   0.345   0.236   0.172
            0.180   0.228   0.159   0.226   0.451
            0.314   0.396   0.405   0.437
 Test8      0.332   0.157   0.382   0.391   0.578
            0.527   0.619   1.000   0.532   0.285
            0.300   0.271   0.395   0.252   0.175
            0.296   0.255   0.250   0.274   0.427
            0.362   0.357   0.501   0.388
 Test9      0.326   0.195   0.184   0.325   0.723
            0.714   0.685   0.532   1.000   0.170
            0.280   0.113   0.280   0.260   0.248
            0.242   0.274   0.208   0.274   0.446
            0.266   0.483   0.504   0.424
 Test10     0.116   0.057  -0.075   0.099   0.311
            0.203   0.246   0.285   0.170   1.000
            0.484   0.585   0.408   0.172   0.154
            0.124   0.289   0.317   0.190   0.173
            0.405   0.160   0.262   0.531
 Test11     0.308   0.150   0.091   0.110   0.344
            0.353   0.232   0.300   0.280   0.484
            1.000   0.428   0.535   0.350   0.240
            0.314   0.362   0.350   0.290   0.202
            0.399   0.304   0.251   0.412
 Test12     0.314   0.145   0.140   0.160   0.215
            0.095   0.181   0.271   0.113   0.585
            0.428   1.000   0.512   0.131   0.173
            0.119   0.278   0.349   0.110   0.246
            0.355   0.193   0.350   0.414
 Test13     0.489   0.239   0.321   0.327   0.344
            0.309   0.345   0.395   0.280   0.408
            0.535   0.512   1.000   0.195   0.139
            0.281   0.194   0.323   0.263   0.241
            0.425   0.279   0.382   0.358
 Test14     0.125   0.103   0.177   0.066   0.280
            0.292   0.236   0.252   0.260   0.172
            0.350   0.131   0.195   1.000   0.370
            0.412   0.341   0.201   0.206   0.302
            0.183   0.243   0.242   0.304
 Test15     0.238   0.131   0.065   0.127   0.229
            0.251   0.172   0.175   0.248   0.154
            0.240   0.173   0.139   0.370   1.000
            0.325   0.345   0.334   0.192   0.272
            0.232   0.246   0.256   0.165
 Test16     0.414   0.272   0.263   0.322   0.187
            0.291   0.180   0.296   0.242   0.124
            0.314   0.119   0.281   0.412   0.325
            1.000   0.324   0.344   0.258   0.388
            0.348   0.283   0.360   0.262
 Test17     0.176   0.005   0.177   0.187   0.208
            0.273   0.228   0.255   0.274   0.289
            0.362   0.278   0.194   0.341   0.345
            0.324   1.000   0.448   0.324   0.262
            0.173   0.273   0.287   0.326
 Test18     0.368   0.255   0.211   0.251   0.263
            0.167   0.159   0.250   0.208   0.317
            0.350   0.349   0.323   0.201   0.334
            0.344   0.448   1.000   0.358   0.301
            0.357   0.317   0.272   0.405
 Test19     0.270   0.112   0.312   0.137   0.190
            0.251   0.226   0.274   0.274   0.190
            0.290   0.110   0.263   0.206   0.192
            0.258   0.324   0.358   1.0     0.167
            0.331   0.342   0.303   0.374
 Test20     0.365   0.292   0.297   0.339   0.398
            0.435   0.451   0.427   0.446   0.173
            0.202   0.246   0.241   0.302   0.272
            0.388   0.262   0.301   0.167   1.000
            0.413   0.463   0.509   0.366
 Test21     0.369   0.306   0.165   0.349   0.318
            0.263   0.314   0.362   0.266   0.405
            0.399   0.355   0.425   0.183   0.232
            0.348   0.173   0.357   0.331   0.413
            1.000   0.374   0.451   0.448
 Test22     0.413   0.232   0.250   0.380   0.441
            0.386   0.396   0.357   0.483   0.160
            0.304   0.193   0.279   0.243   0.246
            0.283   0.273   0.317   0.342   0.463
            0.374   1.000   0.503   0.375
 Test23     0.474   0.348   0.383   0.335   0.435
            0.431   0.405   0.501   0.504   0.262
            0.251   0.350   0.382   0.242   0.256
            0.360   0.287   0.272   0.303   0.509
            0.451   0.503   1.0     0.434
 Test24     0.282   0.211   0.203   0.248   0.420
            0.433   0.437   0.388   0.424   0.531
            0.412   0.414   0.358   0.304   0.165
            0.262   0.326   0.405   0.374   0.366
            0.448   0.375   0.434   1.000
;

proc print;
run;

proc varclus s c;
   title2 'Varclus Analysis Beginning with One Group & Repeatedly Splitting';
run;

proc varclus minc=4;
   title2 'Varclus Analysis Beginning with Four Groups';
run;

proc factor method=prin rotate=promax power=4 nfact=4 round;
   title2 'Oblique Factor Analysis for Comparison With Varclus';
run;