library("BrailleR")
Raza =  factor(c("Blanca", "Negra", "Blanca", "Blanca", "Negra", "Negra", "Negra", "Blanca", "Blanca", "Blanca"), levels = c("Blanca", "Negra"))
Raza
Edad =  c(24, 26, 62, 31, 30, 41, 51, 23, 28, 30)
Peso =  c(58, 62, NA, 67, 71, 69, NA, 73, 56, 82)
Altura =  c(156, 175, 169, 171, 159, 160, 158, 178, 168, 166)
Datos =  data.frame (Raza, Edad, Peso, Altura)
Datos
abso = table(Datos$Raza)
abso
rela = prop.table(abso)
rela
y.bar = barplot(abso, col = c("red", "blue"), main = "Diagrama de barras para la variable Raza")
VI(y.bar)
pie(abso, col = c("white", "black"), main = "Diagrama de sectores para la variable Raza")
y.hist =hist(Datos$Edad, col = "green", main = "Histograma para la variable Edad", xlab = "Edades", ylab = "Frecuencia")
VI(y.hist)
y.box1 = boxplot(Datos$Edad, main = "Cajas y bigotes para la variable Edad (range = 1.5)")
VI(y.box1)
y.box2 = boxplot(Datos$Edad, main = "Cajas y bigotes para la variable Edad (range = 1)")
VI( y.box2)
summary(Datos$Altura)
min(Datos$Altura)
max(Datos$Altura)
quantile(Datos$Altura, probs = c(0.25, 0.75))
mean(Datos$Altura)
median(Datos$Altura)
mean(Datos$Peso, na.rm = TRUE)
var(Datos$Peso, na.rm = TRUE)
IQR(Datos$Peso, na.rm = TRUE)
media_Edad <- mean(Datos$Edad)
media_Edad
var_Edad = 9/10 * var(Datos$Edad)
var_Edad 
dt_Edad =  sqrt(var_Edad)
dt_Edad 
CV_Edad =  dt_Edad/media_Edad
CV_Edad 
media_Altura =  mean(Datos$Altura)
var_Altura =  9/10 * var(Datos$Altura)
dt_Altura =  sqrt(var_Altura)
CV_Altura =  dt_Altura/media_Altura
CV_Altura
install.packages("e1071")   # Es necesario si no está instalado
library(e1071)
skewness(Datos$Altura)
kurtosis(Datos$Altura)
y = Datos$Altura
y
UniDesc(y)