Analisis de Conglomerados

library(tidyverse)
library(readxl)

pesos = read_xlsx("pesos.xlsx")
pesos %>% select(-c(Persona)) %>% data.frame()

##   Edad Estatura Peso
## 1   30     1.69   66
## 2   32     1.70   69
## 3   35     1.65   72
## 4   33     1.68   67

# install.packages("philentropy")
library(philentropy)

# dist_eu = distance(pesos, method = "euclidean", use.row.names = TRUE)