PCA - Biplot - IA I para Redução de Dimenção

 PCA - Biplot - IA I para Redução de Dimenção

data imc_dat;

input cat $ imc corr kcal;

cards;

AT 20.65 53.55 3150.???

SEM 23.1 16.45 2950

SE 25.8 2.55 2650

PR 25.4 2.1 2650

;

proc print;

run;

title "PCA - Biplot - Com Medianas";

/*data imc_dat;

input cat $ imc corr kcal; */

proc prinqual data=imc_dat plots=(MDPref) 

                 /* project onto Prin1 and Prin2 */

              ; /* use COV scaling */

   transform identity(imc corr);  /* identity transform */

   id cat;

   ods select MDPrefPlot;

run;