data(DataQuan) # conjunto de dados quantitativos
Dat <- DataQuan[,2:8]
Resp = NormData(Dat,Type=1) # normaliza os dados globalmente
Resp # dados normalizados globalmente
sd(Resp) # desvio padrao global
mean(Resp) # media global
Resp = NormData(Dat,Type=2) # normaliza os dados por coluna
Resp # dados normalizados por coluna
apply(Resp, 2, sd) # desvio padrao por coluna
colMeans(Resp) # medias das colunas
Run the code above in your browser using DataLab