Publications by Nelson Abad (

MEA Taller 8

sma <- read.table("sma.txt", row.names = 1) names(sma) <- c("Area", "PobT", "PCiudad", "PSenior", "Medicos", "CHosp", "Grad", "Laboral", "Ingresos", "Delitos", "Region") # Variable de respuesta sma$TDelitos <- sma$Delitos/sma$PobT sma = sma[,-c(2, 10)] summary(sma$TDelitos) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 15.69 ...

49 sym R (10889 sym/45 pcs) 1 img

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", us...

8 sym R (363 sym/5 pcs)