Objetivo

Simular población y muestra de mediciones de longitud de tiburones y determinar parámetro media y estadístico media

Descripción

Se simula mediciones de longitud de tiburones que está entre 3 a 7 metros.

Crear una población

Se utiliza la función sample() para generar la población de 750000 (setescientos cincuenta mil) tiburones que hay en el oceano.

Se utiliza la función head() para mostrar los primeros mil registros para no mostrar los 750000 (setescientos cincuenta mil)

poblacion <- sample(x = 3:7, size = 750000, replace = TRUE)
head(poblacion, 1000)
##    [1] 3 3 3 3 5 4 7 3 5 6 4 6 6 7 7 3 5 7 6 3 4 3 4 6 3 4 3 5 4 3 4 3 5 4 4 4 3
##   [38] 4 3 3 4 6 6 3 7 5 5 6 6 3 5 6 5 7 3 3 4 6 7 4 6 6 7 7 5 3 6 6 6 7 6 3 3 5
##   [75] 5 5 4 5 4 6 6 5 4 3 6 3 7 7 3 5 7 4 5 6 6 7 7 5 3 7 6 6 6 4 4 5 7 6 4 5 6
##  [112] 3 3 4 3 5 7 5 5 4 3 3 3 6 4 4 3 3 4 5 5 6 6 4 4 3 6 3 3 6 6 7 7 6 5 4 6 5
##  [149] 6 6 6 6 7 5 6 7 5 5 5 6 4 5 6 3 6 6 6 7 3 6 7 5 4 3 4 4 6 4 5 6 5 7 5 7 7
##  [186] 5 6 7 3 7 6 6 7 5 7 4 4 5 4 6 6 5 3 4 6 4 6 7 5 6 3 4 6 6 3 3 6 6 4 5 3 7
##  [223] 7 3 4 5 4 3 3 7 6 5 4 7 3 4 7 4 3 3 5 3 6 3 3 6 5 6 5 6 6 5 5 7 3 3 4 7 4
##  [260] 3 6 7 3 6 7 3 7 6 5 7 6 5 5 3 6 4 3 3 4 7 5 7 3 6 6 3 5 3 5 6 7 3 4 7 6 5
##  [297] 5 5 7 7 4 6 5 3 7 5 6 3 5 7 4 5 6 7 4 6 4 5 4 5 4 7 6 6 5 6 6 7 7 5 4 7 6
##  [334] 7 7 3 5 6 3 3 4 7 5 6 3 4 5 3 5 6 6 6 4 5 7 6 6 6 4 4 4 6 5 7 6 4 7 6 5 5
##  [371] 4 3 7 6 4 4 4 4 6 3 7 7 6 7 4 7 5 5 3 5 4 3 7 5 4 7 3 7 6 6 7 4 4 4 7 7 7
##  [408] 3 3 5 3 6 7 3 3 5 4 4 5 3 6 6 5 7 3 4 3 5 5 7 7 4 7 7 7 6 4 4 7 5 6 3 6 7
##  [445] 5 3 7 4 3 7 5 6 3 7 5 6 5 3 4 3 4 6 7 4 7 7 7 6 7 7 7 6 6 4 6 5 7 6 3 5 6
##  [482] 5 5 7 5 7 3 7 4 5 3 4 3 7 7 7 6 6 7 6 6 7 5 7 3 5 4 7 5 7 7 3 4 7 7 4 6 4
##  [519] 3 5 7 3 7 3 5 7 3 7 3 4 4 6 4 4 4 5 6 4 6 3 6 4 3 3 5 4 6 5 3 3 5 5 6 7 5
##  [556] 5 6 7 3 3 6 6 4 7 6 6 4 5 3 3 5 6 4 3 3 3 7 6 4 7 5 6 6 7 3 4 5 4 4 3 3 7
##  [593] 6 6 6 5 5 5 5 6 3 5 5 6 3 6 3 4 7 7 7 7 5 7 5 6 6 7 5 4 3 7 4 6 5 3 4 3 3
##  [630] 6 4 5 6 3 4 4 4 5 7 3 3 5 7 3 3 7 3 5 6 6 5 4 4 5 5 4 4 6 6 6 3 4 4 4 3 7
##  [667] 4 3 5 4 4 5 6 4 7 5 4 4 5 6 4 6 7 7 3 4 6 7 6 3 7 3 7 4 6 6 5 4 7 6 7 5 6
##  [704] 6 7 7 6 5 6 6 4 7 3 5 6 7 4 3 4 4 3 4 3 3 6 5 4 3 3 3 5 4 5 4 5 3 6 5 3 7
##  [741] 5 7 3 6 7 7 6 6 6 5 3 6 7 7 4 3 3 3 7 7 7 4 4 6 3 4 7 5 4 3 5 7 3 4 4 3 4
##  [778] 4 5 3 7 6 7 4 5 5 4 5 7 6 7 4 4 6 7 4 6 6 5 6 4 6 4 6 4 3 3 5 3 5 3 6 7 7
##  [815] 6 4 3 7 6 7 4 7 3 4 5 5 4 7 4 6 7 7 5 6 7 7 5 7 5 6 6 4 6 4 3 3 4 3 5 3 7
##  [852] 5 4 4 5 4 5 5 6 7 3 3 7 7 4 7 4 7 3 6 7 7 7 7 3 5 3 3 7 7 5 7 4 4 5 7 3 5
##  [889] 6 5 4 7 4 7 4 6 4 5 7 5 3 7 4 7 3 3 6 4 6 6 5 6 5 4 5 4 7 5 6 5 4 6 4 4 5
##  [926] 4 7 6 6 4 5 3 4 5 7 4 5 3 3 3 6 6 4 3 5 3 5 7 3 5 6 3 5 5 4 4 7 3 5 6 4 4
##  [963] 6 3 6 6 3 5 5 5 3 6 7 3 5 3 4 4 6 5 3 3 4 3 5 5 6 4 5 6 5 3 4 6 4 7 3 6 7
## [1000] 4

Determinar media de la pobacion

media.p <- mean(poblacion)
media.p
## [1] 5.000065

Crear una muestra

Se construye una muestra de 100 datos de las medidas de longitud de los tiburones de la a partir de la población.

muestra <- sample(x = poblacion, size = 100)
muestra
##   [1] 4 7 4 5 4 4 4 5 3 5 5 4 4 6 5 3 5 6 7 7 4 7 5 4 5 6 3 5 3 3 5 3 5 6 6 6 3
##  [38] 5 5 6 3 4 7 3 5 7 3 5 6 3 4 4 6 5 3 4 4 3 7 4 4 3 6 6 5 4 4 6 6 7 7 7 6 7
##  [75] 7 5 4 6 7 4 4 4 3 7 6 6 4 4 4 7 3 5 3 6 4 4 3 4 6 5

Determinar media de la muestra

media.m <- mean(muestra)
media.m
## [1] 4.85

Interpretación

El valor del parámetro de la media poblacional es similar al estadístico de la media muestral