#Asignacion de variable
c <- 3
?mean()
help("hist")
getwd()

## Importar bases de datos
# 1 Copiar el doc a la carpeta del proyecto
# 2 Instalar openxlsx
# 3 Activar librería
# 4 Nombre de la base 
# 5 Importar la base (nombre, )

library(openxlsx)
datos <- read.xlsx("banco.xlsx")
View(datos)

mean(datos$age) #media
median(datos$age) #mediana

library(modeest) #moda
mfv(datos$age)

tabla <- table(datos$age) #tabla frecuencias
View(tabla)

tabla2 <- prop.table(tabla) 
View(tabla2)

quantile(datos$age,prob=c(0.25,0.5,0.75),na.rm=TRUE)
range(datos$age,na.rm=TRUE)  #rango
min(datos$age,na.rm=TRUE) #mínimo
max(datos$age,na.rm=TRUE) #máximo

var(datos$age,na.rm=TRUE) #varianza
sd(datos$age,na.rm=TRUE) #desviacion estandar

library(FinCal)
coefficient.variation(sd=sd(datos$age),avg=mean(datos$age))

CV <- sd(datos$age,na.rm=TRUE)/mean(datos$age)

boxplot(datos$age)
bx1 <- boxplot(datos$age)

hist(tabla)