Simulaciones
Britman Salcedo
28/7/2021
knitr rmarkdown
# SIMULACION DATOS
library(knitr)## Warning: package 'knitr' was built under R version 3.6.3library(readxl)## Warning: package 'readxl' was built under R version 3.6.3`%>%` <- magrittr::`%>%`
datosDE <- read_excel("C:/Users/britman/Downloads/datosDE.xlsx")
datosDE ## # A tibble: 3,547 x 3
## SEXO EDAD `NIVEL DE ESTRÉS`
## <dbl> <dbl> <dbl>
## 1 1 27 3
## 2 1 22 3
## 3 1 22 1
## 4 2 19 2
## 5 2 21 3
## 6 2 28 1
## 7 1 25 1
## 8 1 28 3
## 9 2 26 3
## 10 2 16 2
## # ... with 3,537 more rowstable(datosDE$EDAD) %>% barplot()
# SIMULACIONES
Edad <- sample(c(16:28), 500,replace = T); Edad## [1] 21 28 26 24 25 26 19 21 27 24 18 18 22 16 18 28 23 22 27 21 28 24 19 25 20
## [26] 23 26 27 23 16 25 22 20 28 18 24 28 20 17 22 25 17 27 21 18 20 27 26 16 24
## [51] 20 17 18 22 27 26 24 23 19 17 22 18 20 28 25 23 19 25 27 19 17 22 18 20 20
## [76] 25 25 27 23 28 28 21 17 28 24 19 19 20 26 20 24 25 26 25 19 21 26 20 28 21
## [101] 20 17 17 27 18 27 18 27 23 22 26 17 23 26 19 24 26 21 19 16 16 23 17 26 19
## [126] 21 22 27 17 20 26 16 17 28 17 24 27 19 24 24 28 18 19 28 23 27 26 27 23 25
## [151] 21 21 27 20 25 23 19 28 27 24 20 27 25 18 25 26 22 16 17 23 19 28 18 25 27
## [176] 21 28 25 26 20 19 16 20 26 27 20 22 19 25 17 23 17 25 26 22 25 25 17 19 17
## [201] 18 27 19 18 21 20 23 21 28 17 23 21 22 20 20 27 28 23 24 25 24 21 20 17 25
## [226] 17 19 17 23 18 20 16 20 24 21 28 21 21 17 27 24 28 16 19 17 19 23 20 17 23
## [251] 17 24 28 23 25 28 27 22 19 28 28 21 22 26 19 21 26 16 22 20 28 22 16 28 26
## [276] 28 23 23 16 25 24 19 19 18 23 23 23 20 27 18 28 22 25 21 22 23 20 18 26 19
## [301] 26 27 23 23 16 17 21 23 25 22 24 18 24 24 26 16 24 20 28 24 26 21 20 26 19
## [326] 27 25 21 26 26 28 16 24 28 21 27 26 24 28 27 19 25 27 25 24 24 22 20 16 26
## [351] 23 18 21 18 27 28 24 17 16 23 19 17 17 18 23 17 16 26 23 26 19 17 22 21 22
## [376] 22 19 18 20 20 26 18 18 21 17 24 25 18 18 19 17 18 25 19 26 25 26 21 23 17
## [401] 24 25 25 25 22 23 27 24 26 19 18 28 24 24 28 24 17 19 24 26 28 25 19 25 18
## [426] 17 22 17 28 16 17 22 25 17 26 25 28 18 22 17 16 21 16 22 25 28 27 20 26 22
## [451] 19 22 16 19 26 26 25 18 16 26 24 20 25 21 25 17 19 21 20 22 26 17 27 21 17
## [476] 27 21 26 24 16 28 16 17 25 18 26 19 18 21 26 16 16 19 21 21 20 23 26 19 26table(datosDE$EDAD)##
## 16 17 18 19 20 21 22 23 24 25 26 27 28
## 253 250 262 302 244 286 304 239 286 292 267 294 268Sexo <- sample(c(1, 2), 500, replace = T); Sexo## [1] 1 2 1 1 1 1 2 2 2 1 2 2 1 1 1 1 1 2 2 1 1 2 1 2 2 2 2 1 1 2 2 2 2 2 2 1 1
## [38] 2 1 1 1 1 2 1 2 1 1 1 1 2 1 1 1 1 1 2 1 1 2 1 1 2 2 1 2 1 2 2 1 1 2 2 1 2
## [75] 2 2 2 1 2 2 2 2 1 1 1 2 1 1 1 1 2 2 2 2 1 1 1 1 1 1 1 1 2 2 1 1 1 2 1 1 1
## [112] 2 1 2 1 2 2 2 2 1 1 1 1 2 1 1 1 2 2 1 2 1 1 1 2 2 1 2 2 2 2 2 1 2 1 2 1 1
## [149] 2 2 1 1 1 1 2 2 2 2 2 2 1 1 2 1 1 2 1 2 2 1 2 1 1 2 1 2 1 1 2 2 1 2 1 1 1
## [186] 2 1 2 1 2 2 2 2 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 2 2 1 2 1 1 2 1 2 1 1 1
## [223] 1 1 1 2 1 1 1 2 2 2 1 2 1 1 2 2 1 2 1 2 2 2 2 1 2 1 2 2 2 1 1 1 2 1 1 2 1
## [260] 1 1 1 2 1 2 1 2 2 2 1 1 1 2 2 1 1 2 2 1 2 2 2 1 2 1 2 1 1 1 1 1 1 1 1 2 1
## [297] 2 2 2 2 1 1 2 1 2 1 1 1 1 1 1 1 2 1 2 2 2 2 1 2 2 2 1 1 2 1 2 2 2 1 1 2 1
## [334] 2 2 2 1 2 1 2 1 1 2 1 2 1 2 1 1 2 1 2 1 1 1 1 1 1 2 1 1 1 1 1 2 2 1 2 2 1
## [371] 2 2 1 2 1 2 2 1 1 2 1 2 2 1 1 2 1 2 2 2 1 1 1 2 1 2 1 2 1 2 2 1 1 1 1 1 2
## [408] 1 2 1 1 2 1 2 2 2 2 1 1 1 1 2 2 2 1 1 2 1 2 2 2 1 2 2 1 2 1 1 1 1 2 1 1 2
## [445] 1 1 2 2 1 1 1 2 2 2 2 1 2 2 1 1 2 2 1 2 1 2 2 2 1 2 2 2 1 1 1 1 2 2 1 1 2
## [482] 1 2 1 1 2 2 2 1 1 1 2 2 2 1 1 1 1 2 2Nivel_Estres <- sample(c(1,2,3), 500, replace = T); Nivel_Estres## [1] 2 1 1 2 2 3 3 1 2 3 2 1 3 3 1 3 3 1 1 2 1 2 1 3 1 1 3 1 2 1 2 3 2 2 3 2 1
## [38] 2 2 2 3 2 3 3 2 3 3 3 3 3 3 2 1 3 1 3 2 2 2 1 2 1 3 3 2 1 3 2 1 2 2 2 3 2
## [75] 1 1 3 2 2 2 1 3 3 1 3 2 1 2 3 2 2 3 3 2 1 2 3 1 1 2 3 2 1 2 2 3 2 1 1 1 3
## [112] 1 2 1 1 3 3 2 3 1 3 2 1 3 1 2 1 2 1 2 3 2 2 1 3 3 1 2 2 1 2 2 2 1 3 2 1 3
## [149] 3 1 1 2 1 2 1 1 1 1 1 2 3 1 1 1 2 2 2 3 3 2 2 1 1 3 3 2 1 3 3 1 1 3 1 1 3
## [186] 2 1 3 1 2 2 2 2 2 2 2 3 1 3 1 3 2 1 2 3 1 1 2 1 1 3 3 1 2 3 1 2 2 1 3 1 2
## [223] 3 3 1 3 1 2 3 2 3 3 3 2 3 2 2 1 3 3 2 3 1 2 2 2 3 3 1 3 2 1 1 1 2 1 3 1 2
## [260] 2 1 3 3 2 3 2 2 3 1 3 2 2 2 1 2 2 1 3 1 2 3 3 3 1 1 1 1 1 1 2 3 2 2 1 3 3
## [297] 3 1 3 2 2 3 3 3 1 1 2 1 1 3 3 1 2 3 2 1 1 2 3 3 1 1 2 2 3 1 2 2 1 2 1 2 2
## [334] 3 3 2 1 1 2 2 2 3 2 1 3 2 2 2 3 2 1 3 3 2 1 2 1 1 3 3 1 2 2 2 3 3 2 2 1 2
## [371] 1 2 1 3 1 2 1 2 2 3 1 2 3 1 2 1 3 1 2 2 3 1 2 2 3 3 3 3 2 1 3 1 2 2 1 2 3
## [408] 1 1 1 3 1 1 3 2 2 3 1 1 1 3 1 1 2 1 2 1 2 1 3 1 3 3 1 2 2 1 2 3 2 2 2 3 3
## [445] 3 1 2 1 2 1 2 1 2 3 1 3 2 1 1 3 1 2 3 1 3 1 2 3 3 2 2 2 3 2 1 2 1 1 2 2 2
## [482] 2 2 1 3 3 2 2 3 3 3 1 1 1 2 3 2 1 1 2# VISTA DE DATOS
Datos_Simulados <- data.frame(Edad,Sexo,Nivel_Estres) ; Datos_Simulados %>% head(50)## Edad Sexo Nivel_Estres
## 1 21 1 2
## 2 28 2 1
## 3 26 1 1
## 4 24 1 2
## 5 25 1 2
## 6 26 1 3
## 7 19 2 3
## 8 21 2 1
## 9 27 2 2
## 10 24 1 3
## 11 18 2 2
## 12 18 2 1
## 13 22 1 3
## 14 16 1 3
## 15 18 1 1
## 16 28 1 3
## 17 23 1 3
## 18 22 2 1
## 19 27 2 1
## 20 21 1 2
## 21 28 1 1
## 22 24 2 2
## 23 19 1 1
## 24 25 2 3
## 25 20 2 1
## 26 23 2 1
## 27 26 2 3
## 28 27 1 1
## 29 23 1 2
## 30 16 2 1
## 31 25 2 2
## 32 22 2 3
## 33 20 2 2
## 34 28 2 2
## 35 18 2 3
## 36 24 1 2
## 37 28 1 1
## 38 20 2 2
## 39 17 1 2
## 40 22 1 2
## 41 25 1 3
## 42 17 1 2
## 43 27 2 3
## 44 21 1 3
## 45 18 2 2
## 46 20 1 3
## 47 27 1 3
## 48 26 1 3
## 49 16 1 3
## 50 24 2 3View(Datos_Simulados)
# HISTOGRAMA
hist(Datos_Simulados$Edad, xlab = "Edad", main = "Histograma de Edad")