Aula 2.1: Medidas de dissimilaridade - Distância euclidiana

Nesta aula falo sobre o raciocínio para entendermos o que é a distancia euclidiana. Segue abaixo os comandos do R: remove(list=ls()) peso=c(71,50,80,52) altura=c(1.8,1.69,1.75,1.63) idade=c(15,16,22,25) MAT=cbind(peso, altura, idade) rownames(MAT)=c("Joao","Maria","Ricardo", "Luiza") ?dist DE=dist(MAT, method = "euclidean", diag = TRUE, upper = TRUE, p = 2) ############################### #Padronizacao dos dados. MATp=apply(MAT,2,function(x) (x-mean(x))/sd(x)) DEp=dist(MATp, method = "euclidean", diag = TRUE, upper = TRUE, p = 2) #Distancia euclidianda padronizada media DEpmedia=DEp/sqrt(nrow(MAT)) dendo=hclust(DEpmedia,method = "average") plot(dendo)