install.packages("openxlsx")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)
library(openxlsx)

# Leer el archivo xlsx y almacenarlo en un objeto de datos
datos <- read.xlsx("Casen_2017.xlsx")

library(openxlsx)

moda <- as.numeric(names(sort(-table(datos$lw))[1]))
media <- mean(datos$lw)
mediana <- median(datos$lw)


# Graficar un histograma de los datos
hist(datos$lw, main = "Histograma de Salarios",
     xlab = "lw", ylab = "salario", col = "blue")