###Objetivo: Elaborar un archivo markdown que identifique muestras y medias de cada muestra de un conjunto de datos.
####1.Crear un conjunto de datos de una población con variables. El conjunto de datos será un data.frame().50 registros. *Crear un data.frame()
Nombres <- c("Daniela", 'Alberto','Claudia','Marcos','Luis','Victor','Carlos','Mitzy','Erika','Elena','Javier','José','Isaac','Cristal','Blanca','Andres','Matilde','Manuel','Sebastian','Jaciel','Diana','Esteban','Sofia','Alan','Oscar','Alondra','David','Samanatha','Cristian','Dante','María','Matias','Santiago','Beatriz','Alejandra','Omar','Camila','Melissa','Elizabeth','Raul','Maurico','Mariana','Vanessa','Jimena','Roberto','Luis','Cyntia','Monica','Jesus','Rosa')
Edades <- c (15, 34, 27, 57, 60, 18, 31, 56, 24, 42, 26, 18, 23, 47, 34, 16, 19, 26, 55, 42, 37, 29, 20, 22, 55, 39, 46, 30, 18, 26, 43, 59, 24, 16, 60, 21, 52, 46, 33, 22, 54, 25, 44, 20, 17, 28, 30, 38, 41, 58)
carreras <- c ("arqitectura",'sistema', 'diseño grafico', 'derecho', 'medicina', 'artes', 'administración', 'bioquimica', 'sistemas', 'mécanica','arqitectura', 'químico', 'gastronomia','astronomia','medicina', ' mecatronica','informatica', 'quimica', ' geologia','odontologia', 'nutricion','veterinaria', 'odontologia', 'enfermeria', 'trabajo social', 'mecatronica', 'artes', 'enfermeria', 'quimica','sistemas','derecho', 'informatica','trabajo social', 'odontologia', 'turismo', ', comnunicación','literaura', 'turismo', 'arquitectura', 'nutrición', 'actuación', 'enfermertiaadministración', 'informatica', 'geologia', 'derecho', 'contabilidad', 'administración', ' actuacion', 'sistemas')
Genero <- c("F", 'M', 'F', 'M', 'M', 'M', 'M', 'F', 'F', 'F', 'M', 'M', 'M', 'F', 'F', 'M', 'F', 'M', 'M', 'M', 'F', 'M', 'F', 'M', 'M', 'F', 'M', 'F', 'M', 'M', 'F', 'M', 'M', 'F', 'F', 'M', 'F', 'F', 'F', 'M', 'M', 'F', 'F', 'F', 'M', 'M', 'F', 'F', 'M', 'F')
Estatura <- c( "1.40m", '1.63m', '1.45m', '1.84m', '1.86m', '1.90m', '1.52m', '1.64m', '1.84m', '1.55m', '1.95m', '2.00m', '1.63m', '1.75m', '1.88m', '1.72m', '1.48m', '1.59m', '1.64m', '1.93m', '1.78m', '1.42m', '2.10m', '1.65m', '1.49m', '1.69m', '1.46m', '1.97m', '1.50m', '1.42m', '1.78m', '1.83m', '1.62m', '1.73m', '1.61m', '1.93m', '1.62m', '1.71m', '1.81m', '1.94m', '1.83m', '1,48m', '1,73m', '1,74m', '1,83m','1.85m','1.53m', '1.74m', '1.48m', '1.58m')
Peso <- c("55kgs",'68kgs','59kgs','96kgs','140kgs','40kgs','68kgs','73kgs','63kgs','82kgs','78kgs','93kgs','53kgs','84kgs','45kgs','59kgs','62kgs','97kgs','120kgs','126kgs','51kgs','49kgs','59kgs','86kgs','99kgs','86kgs','63kgs','50kgs','47kgs','93kgs','100kgs','60kgs','94kgs','128kgs','64kgs','74kgs','85kgs','99kgs','75kgs','48kgs','96kgs','104kgs','71kgs','96kgs','61kgs','87kgs','74kgs','66kgs','52kgs','53kgs')
datos <- data.frame(Nombres, Edades, Genero, Estatura, Peso)
datos## Nombres Edades Genero Estatura Peso
## 1 Daniela 15 F 1.40m 55kgs
## 2 Alberto 34 M 1.63m 68kgs
## 3 Claudia 27 F 1.45m 59kgs
## 4 Marcos 57 M 1.84m 96kgs
## 5 Luis 60 M 1.86m 140kgs
## 6 Victor 18 M 1.90m 40kgs
## 7 Carlos 31 M 1.52m 68kgs
## 8 Mitzy 56 F 1.64m 73kgs
## 9 Erika 24 F 1.84m 63kgs
## 10 Elena 42 F 1.55m 82kgs
## 11 Javier 26 M 1.95m 78kgs
## 12 José 18 M 2.00m 93kgs
## 13 Isaac 23 M 1.63m 53kgs
## 14 Cristal 47 F 1.75m 84kgs
## 15 Blanca 34 F 1.88m 45kgs
## 16 Andres 16 M 1.72m 59kgs
## 17 Matilde 19 F 1.48m 62kgs
## 18 Manuel 26 M 1.59m 97kgs
## 19 Sebastian 55 M 1.64m 120kgs
## 20 Jaciel 42 M 1.93m 126kgs
## 21 Diana 37 F 1.78m 51kgs
## 22 Esteban 29 M 1.42m 49kgs
## 23 Sofia 20 F 2.10m 59kgs
## 24 Alan 22 M 1.65m 86kgs
## 25 Oscar 55 M 1.49m 99kgs
## 26 Alondra 39 F 1.69m 86kgs
## 27 David 46 M 1.46m 63kgs
## 28 Samanatha 30 F 1.97m 50kgs
## 29 Cristian 18 M 1.50m 47kgs
## 30 Dante 26 M 1.42m 93kgs
## 31 María 43 F 1.78m 100kgs
## 32 Matias 59 M 1.83m 60kgs
## 33 Santiago 24 M 1.62m 94kgs
## 34 Beatriz 16 F 1.73m 128kgs
## 35 Alejandra 60 F 1.61m 64kgs
## 36 Omar 21 M 1.93m 74kgs
## 37 Camila 52 F 1.62m 85kgs
## 38 Melissa 46 F 1.71m 99kgs
## 39 Elizabeth 33 F 1.81m 75kgs
## 40 Raul 22 M 1.94m 48kgs
## 41 Maurico 54 M 1.83m 96kgs
## 42 Mariana 25 F 1,48m 104kgs
## 43 Vanessa 44 F 1,73m 71kgs
## 44 Jimena 20 F 1,74m 96kgs
## 45 Roberto 17 M 1,83m 61kgs
## 46 Luis 28 M 1.85m 87kgs
## 47 Cyntia 30 F 1.53m 74kgs
## 48 Monica 38 F 1.74m 66kgs
## 49 Jesus 41 M 1.48m 52kgs
## 50 Rosa 58 F 1.58m 53kgs###2.Crear 5 muestras de 10 registros de la población
set.seed(2020) # Semilla
muestra1 <- sample(datos$Edades, 10, replace = FALSE)
muestra2 <- sample(datos$Edades, 10, replace = FALSE)
muestra3 <- sample(datos$Edades, 10, replace = FALSE)
muestra4 <- sample(datos$Edades, 10, replace = FALSE)
muestra5 <- sample(datos$Edades, 10, replace = FALSE)####3.De cada muestra determinar la media mean(muestra1,muestar2….muestra5) de la edad, del peso y de la estatura
meanM1 <- mean(muestra1)
meanM2 <- mean(muestra2)
meanM3 <- mean(muestra3)
meanM4 <- mean(muestra4)
meanM5 <- mean(muestra5)
meanM1## [1] 21.9meanM2## [1] 30.8meanM3## [1] 34.8meanM4## [1] 33.5meanM5## [1] 29.7####4.Comparar la media de cada muestra con la media de toda la población de la edad, del peso y de la estatura
mean(datos$Edades)## [1] 34.46#5. Realizar una descripción del caso de 80 a 100 palabras ¿Cuántas observaciones se analizaron?, ¿cuántas variables? ¿Qué significa una muestra y una población? ¿Qué significa la media de una muestra y la media de una población? ¿Es parecido, semejante diferente o igual la media de las muestras con respecto a la media de la población? ¿Qué pasa si determinar las media de las muestras comparadas con la media de la población?
En el primer caso observamos la media de una muestra y edad, peso y la estatura de cincuenta registros y su comparación con el resto de la población y analizamos cinco variables. Una muestra estadística es un subconjunto de datos perteneciente a una población de datos. Estadísticamente hablando, debe estar constituido por un cierto número de observaciones que representen adecuadamente el total de los datos y una población es el total de individuos o conjunto de ellos que presentan o podrían presentar el rasgo característico que se desea estudiar. La media muestral , que es un estadístico que se calcula a partir de la media aritmética de un conjunto de valores de una variable aleatoria. La media poblacional, valor esperado o esperanza matemática de una variable aleatoria.