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