Script Análise Multivariada de Componentes principias
remove(list = ls())
library(readxl)
#Indicar a pasta de trabalho
#Importar o banco de dados
#Modificar a primeira coluna para ser nome de linhas e não dados
rownames(dados)=dados[,1]
#Excluir a primeira coluna
dados=dados[,-1]
#Padronização
dadosp=scale(dados)
#Para conferir
apply(dados, 2, mean) #media =0
apply(dados, 2, sd) #desvio padrão =1
apply(dados, 2, var) #variancia =1
#Obter autovalores e autovetores
av<-eigen(var(dados)) #objeto do tipo lis com dois objetos: values (autovalores) e
vectors(autovetores