Tarea 4

Titulo 1

install.packages("openxlsx")

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

library(openxlsx)


datos <- read.xlsx("Casen_2017.xlsx")




media <- mean(datos$lw)

moda <- as.numeric(names(table(datos$lw))[table(datos$lw) == max(table(datos$lw))])

mediana <- median(datos$lw)

cat("La media es:", media, "\n")

## La media es: 12.99145

cat("La moda es:", moda, "\n")

## La moda es: 12.50618

cat("La mediana es:", mediana, "\n")

## La mediana es: 12.87817

hist(datos$lw)