title: “Estadística I” author: “Karoll Arias”
output: html_document: toc: true toc_float: true toc_depth: 3 number_sections: true theme: null highlight: tango code_folding: show df_print: paged css: styles.css pdf_document: toc: true number_sections: true highlight: tango word_document: toc: true number_sections: true
Mis datos
Datos21 <- c(
38, 15, 10, 12, 62, 46, 25, 56, 27, 24, 23, 21,
20, 25, 38, 27, 48, 35, 50, 65, 59, 58, 47, 42,
37, 35, 32, 40, 28, 14, 12, 24, 66, 73, 72, 70,
68, 65, 54, 48, 34, 33, 21, 19, 61, 59, 47, 46,
30, 30
)
Datos21## [1] 38 15 10 12 62 46 25 56 27 24 23 21 20 25 38 27 48 35 50 65 59 58 47 42 37
## [26] 35 32 40 28 14 12 24 66 73 72 70 68 65 54 48 34 33 21 19 61 59 47 46 30 30Tabla de Frecuencias individuales
library(summarytools)
datos21 <- freq(Datos21)
datos21## Frequencies
## Datos21
## Type: Numeric
##
## Freq % Valid % Valid Cum. % Total % Total Cum.
## ----------- ------ --------- -------------- --------- --------------
## 10 1 2.00 2.00 2.00 2.00
## 12 2 4.00 6.00 4.00 6.00
## 14 1 2.00 8.00 2.00 8.00
## 15 1 2.00 10.00 2.00 10.00
## 19 1 2.00 12.00 2.00 12.00
## 20 1 2.00 14.00 2.00 14.00
## 21 2 4.00 18.00 4.00 18.00
## 23 1 2.00 20.00 2.00 20.00
## 24 2 4.00 24.00 4.00 24.00
## 25 2 4.00 28.00 4.00 28.00
## 27 2 4.00 32.00 4.00 32.00
## 28 1 2.00 34.00 2.00 34.00
## 30 2 4.00 38.00 4.00 38.00
## 32 1 2.00 40.00 2.00 40.00
## 33 1 2.00 42.00 2.00 42.00
## 34 1 2.00 44.00 2.00 44.00
## 35 2 4.00 48.00 4.00 48.00
## 37 1 2.00 50.00 2.00 50.00
## 38 2 4.00 54.00 4.00 54.00
## 40 1 2.00 56.00 2.00 56.00
## 42 1 2.00 58.00 2.00 58.00
## 46 2 4.00 62.00 4.00 62.00
## 47 2 4.00 66.00 4.00 66.00
## 48 2 4.00 70.00 4.00 70.00
## 50 1 2.00 72.00 2.00 72.00
## 54 1 2.00 74.00 2.00 74.00
## 56 1 2.00 76.00 2.00 76.00
## 58 1 2.00 78.00 2.00 78.00
## 59 2 4.00 82.00 4.00 82.00
## 61 1 2.00 84.00 2.00 84.00
## 62 1 2.00 86.00 2.00 86.00
## 65 2 4.00 90.00 4.00 90.00
## 66 1 2.00 92.00 2.00 92.00
## 68 1 2.00 94.00 2.00 94.00
## 70 1 2.00 96.00 2.00 96.00
## 72 1 2.00 98.00 2.00 98.00
## 73 1 2.00 100.00 2.00 100.00
## <NA> 0 0.00 100.00
## Total 50 100.00 100.00 100.00 100.00Resumen de datos
summary(Datos21)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 10.00 25.00 37.50 39.82 55.50 73.00Gráfico de Caja y Bigotes
boxplot(
Datos21,
notch = FALSE,
horizontal = TRUE,
col = "#C9B7E8",
border = "#7B61A8",
main = "Distribución de los datos",
xlab = "Valores"
)
Histograma
h <- graph.freq(
Datos21,
col = "#AFCDEB"
)
Tabla agrupada
summary(h)## Lower Upper Main Frequency Percentage CF CPF
## 1 10 19 14.5 5 10 5 10
## 2 19 28 23.5 11 22 16 32
## 3 28 37 32.5 8 16 24 48
## 4 37 46 41.5 5 10 29 58
## 5 46 55 50.5 8 16 37 74
## 6 55 64 59.5 6 12 43 86
## 7 64 73 68.5 7 14 50 100