library(readxl)
IngresantesN <- read_excel("D:/PRUEBAS en R/alumnos_2015_USAR_R_NUMERICOS.xlsx")
View(IngresantesN)
Ingreso<-as.data.frame(scale(IngresantesN[,3:19])  )#Normalizo datos
View(IngresantesN)
set.seed(80)    #Fijo semilla
Ingreso.km<- Ingreso.km<-kmeans(Ingreso,5)      # Aplico KMeans
names(Ingreso.km)   # Contenido del objeto

Ingreso.km$cluster  # Asignación observaciones a cluster