#Mi primer trabajo
#Gracias profe :D :D :D
?diamantes
datos.d <- diamantes
set.seed(883179521)
muestra_p <- sample_n(datos.d,120)
muestra_p
attach(muestra_p)
names(muestra_p)
"MEDIDAS DE TENDENCIA CENTRAL DE PRECIO"
promedio.p <- mean(precio)
promedio.p
cat("El promedio de precio es",promedio.p)
mediana.p <- median(precio)
cat("La mediana de precio es",mediana.p)
moda.p <- ds_mode(precio)
cat("La moda de precio es",moda.p)
"MEDIDAS DE DISPERSIÓN"
rango.p <- ds_range(precio)
rango.p
cat("El rango de precio es",rango.p)
varianza.p <- round(var(precio),3)
varianza.p
cat("La varianza de precio es",varianza.p)
desviaest.p <- round(sd(precio),3)
desviaest.p
cat( "La desviación estándar de precio es",desviaest.p)
coefivari.p <- round(ds_cvar(precio),3)
coefivari.p
cat("El coeficiente de variación de precio es de", coefivari.p)
"MEDIDAS DE POSICIÓN"
cuartiles.p <- quantile(x=precio,probs = c(0.25,0.5,0.75,1),type =6)
cuartiles.p
cuartil.p <- c('25%','50%','75%','100')
cuartil.p
valor.p <- c(954.75,562.00,5081.50,18102.00)
valor.p
tablecuartil.p <- data.frame(cuartil.p,valor.p)
tablecuartil.p
cat("Los cuartiles para la variable precio son",cuartiles.p)
precentil.p <- quantile(precio, probs = seq(0.01, 0.99, by = 0.01))
cajabig.p <- boxplot(precio,col="orange",horizontal = TRUE, main="Diagrama de caja para precio")