# NOT RUN {
data(DataQuan) # conjunto de dados quantitativos
data <- DataQuan[,2:8]
Resp = NormData(data, type = 1) # normaliza os dados globalmente
Resp # dados normalizados globalmente
sd(Resp) # desvio padrao global
mean(Resp) # media global
Resp = NormData(data, 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