CALCULAR PROBABILIDADES DE ALGUNOS CONJUNTOS GENERADOS A PARTIR DE UNA POBLACION
A PARTIR DE VARIOS CONJUNTOS DE DATOS CALCULAR PROBABILIDADES
library(dplyr)
library(gtools)
library(readr)source("https://raw.githubusercontent.com/rpizarrog/Probabilidad-y-EstadIstica-VIRTUAL-DISTANCIA/main/funciones/funcion%20determinar%20frecuencia%20de%20conjuntos.r")Los datos contienen nombres de personas y la actividad o deporte que practican en una Institución educativa.
Puede haber varias actividades que participa una misma persona.
La variable datos es todo el espacio muestral de los alumnos que practican algún deporte.
Se van van a generar varios eventos a partir del todo el espacio muestral.
\[ datos = S = \text { { x | x es un estudiante que participa en equipos deportivos} } \]
datos <- read.csv(file = "https://raw.githubusercontent.com/rpizarrog/Probabilidad-y-EstadIstica-VIRTUAL-DISTANCIA/main/datos/alumnos.deportes.2021.csv", header = TRUE, stringsAsFactors = TRUE, encoding = "ISO-8859")
datos## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 1 Adrián M TRUE FALSE TRUE TRUE TRUE FALSE
## 2 2 Adriana F TRUE TRUE FALSE FALSE FALSE FALSE
## 3 3 América F TRUE TRUE TRUE TRUE TRUE FALSE
## 4 4 Ana F FALSE FALSE FALSE FALSE FALSE FALSE
## 5 5 Angel M TRUE TRUE FALSE FALSE FALSE FALSE
## 6 6 Angélica F TRUE TRUE TRUE FALSE FALSE FALSE
## 7 7 Antonieta F FALSE FALSE FALSE FALSE FALSE TRUE
## 8 8 Antonio M FALSE FALSE FALSE FALSE FALSE FALSE
## 9 9 Aracely F FALSE FALSE FALSE FALSE FALSE TRUE
## 10 10 Arcelia F FALSE FALSE FALSE FALSE TRUE TRUE
## 11 11 Argelia F FALSE FALSE FALSE FALSE FALSE TRUE
## 12 12 Armenia F FALSE FALSE TRUE FALSE FALSE TRUE
## 13 13 Arnulfo M FALSE FALSE TRUE FALSE FALSE FALSE
## 14 14 Arturo M FALSE FALSE FALSE FALSE FALSE FALSE
## 15 15 Bety F TRUE TRUE FALSE FALSE FALSE FALSE
## 16 16 Calixto M TRUE FALSE FALSE FALSE FALSE FALSE
## 17 17 Carlos M TRUE FALSE FALSE FALSE FALSE FALSE
## 18 18 Carmen F FALSE TRUE FALSE FALSE FALSE FALSE
## 19 19 Consuelo F FALSE FALSE FALSE FALSE FALSE TRUE
## 20 20 Dagoberto M FALSE FALSE TRUE FALSE FALSE FALSE
## 21 21 Dalia F TRUE FALSE FALSE FALSE FALSE FALSE
## 22 22 Dany F TRUE TRUE FALSE FALSE FALSE FALSE
## 23 23 Eduardo M TRUE FALSE FALSE FALSE FALSE FALSE
## 24 24 Efren M TRUE FALSE FALSE TRUE FALSE FALSE
## 25 25 Eraclio M TRUE FALSE TRUE FALSE FALSE FALSE
## 26 26 Ernestina F TRUE FALSE TRUE FALSE TRUE FALSE
## 27 27 Ernesto M FALSE TRUE FALSE FALSE FALSE FALSE
## 28 28 Fabián M FALSE TRUE TRUE FALSE FALSE FALSE
## 29 29 Federico M FALSE FALSE FALSE TRUE FALSE FALSE
## 30 30 Felipe M TRUE FALSE FALSE TRUE TRUE FALSE
## 31 31 Fernanda F FALSE FALSE FALSE FALSE FALSE FALSE
## 32 32 Fernando M TRUE FALSE FALSE TRUE FALSE FALSE
## 33 33 Gabino M FALSE TRUE FALSE FALSE FALSE FALSE
## 34 34 Gabriel M TRUE FALSE FALSE FALSE FALSE FALSE
## 35 35 Gabriela F FALSE FALSE FALSE FALSE FALSE FALSE
## 36 36 Genaro M FALSE FALSE TRUE FALSE FALSE TRUE
## 37 37 Gerardina F TRUE TRUE FALSE FALSE TRUE TRUE
## 38 38 Gerardo M TRUE FALSE TRUE FALSE FALSE TRUE
## 39 39 Giovanni M FALSE TRUE FALSE FALSE TRUE TRUE
## 40 40 Gonzalo M TRUE FALSE FALSE FALSE FALSE FALSE
## 41 41 Guillermina F TRUE FALSE FALSE FALSE TRUE FALSE
## 42 42 Guillermo M FALSE TRUE FALSE FALSE TRUE TRUE
## 43 43 Heladio M FALSE TRUE FALSE TRUE FALSE FALSE
## 44 44 Javier M FALSE TRUE FALSE FALSE FALSE FALSE
## 45 45 Jeorgina F FALSE TRUE FALSE FALSE FALSE FALSE
## 46 46 Joaquín M FALSE FALSE TRUE FALSE FALSE TRUE
## 47 47 Jorge M TRUE TRUE FALSE FALSE FALSE FALSE
## 48 48 Juan M TRUE FALSE FALSE TRUE FALSE FALSE
## 49 49 Julieta F FALSE FALSE FALSE FALSE FALSE TRUE
## 50 50 Julio M FALSE TRUE FALSE TRUE FALSE FALSE
## 51 51 Lalo M FALSE FALSE TRUE FALSE FALSE FALSE
## 52 52 Laura F FALSE TRUE FALSE FALSE FALSE FALSE
## 53 53 Leonardo M FALSE FALSE TRUE FALSE FALSE TRUE
## 54 54 Liliana F FALSE FALSE TRUE FALSE FALSE FALSE
## 55 55 Lorenzo M TRUE FALSE TRUE FALSE FALSE FALSE
## 56 56 Lucía F TRUE TRUE FALSE FALSE TRUE TRUE
## 57 57 Lucy F TRUE FALSE TRUE TRUE FALSE FALSE
## 58 58 Luis M FALSE FALSE TRUE FALSE FALSE FALSE
## 59 59 Luisa F FALSE FALSE FALSE FALSE FALSE FALSE
## 60 60 Lupita F TRUE TRUE FALSE FALSE FALSE FALSE
## 61 61 Manuel M FALSE TRUE FALSE FALSE FALSE FALSE
## 62 62 Marcela F FALSE FALSE FALSE TRUE FALSE FALSE
## 63 63 Margarita F FALSE TRUE FALSE TRUE FALSE FALSE
## 64 64 Margarito M FALSE FALSE FALSE FALSE FALSE TRUE
## 65 65 Maria F FALSE TRUE FALSE FALSE FALSE FALSE
## 66 66 Mario M TRUE TRUE FALSE FALSE TRUE FALSE
## 67 67 Mary F TRUE TRUE TRUE TRUE FALSE TRUE
## 68 68 Memo M TRUE FALSE FALSE FALSE TRUE FALSE
## 69 69 Miguel M TRUE TRUE FALSE FALSE FALSE FALSE
## 70 70 Mikaela F FALSE TRUE FALSE FALSE FALSE FALSE
## 71 71 Orlando M TRUE FALSE FALSE FALSE FALSE FALSE
## 72 72 Oscar M FALSE FALSE FALSE FALSE FALSE FALSE
## 73 73 Otilia F TRUE FALSE FALSE TRUE FALSE FALSE
## 74 74 Paco M TRUE FALSE TRUE FALSE TRUE FALSE
## 75 75 Patricia F TRUE FALSE FALSE TRUE FALSE FALSE
## 76 76 Paty F TRUE TRUE FALSE FALSE FALSE FALSE
## 77 77 Pedro M TRUE TRUE FALSE FALSE FALSE FALSE
## 78 78 Perla F FALSE FALSE FALSE FALSE FALSE FALSE
## 79 79 Plácido M FALSE FALSE TRUE FALSE FALSE TRUE
## 80 80 Raquel F TRUE TRUE FALSE FALSE FALSE FALSE
## 81 81 Raul M TRUE FALSE FALSE FALSE FALSE FALSE
## 82 82 Romualdo M TRUE FALSE FALSE FALSE FALSE FALSE
## 83 83 Ronaldo M TRUE TRUE FALSE FALSE TRUE TRUE
## 84 84 Rosario F FALSE FALSE FALSE FALSE FALSE FALSE
## 85 85 Rubén M TRUE FALSE FALSE FALSE FALSE FALSE
## 86 86 Rubý F TRUE TRUE FALSE FALSE FALSE FALSE
## 87 87 Salvador M TRUE FALSE FALSE TRUE FALSE FALSE
## 88 88 Sandra F FALSE FALSE FALSE FALSE FALSE FALSE
## 89 89 Sandro M FALSE FALSE FALSE FALSE FALSE TRUE
## 90 90 Sandy F FALSE TRUE FALSE FALSE FALSE FALSE
## 91 91 Saul M TRUE FALSE TRUE FALSE FALSE FALSE
## 92 92 Sotelo M FALSE FALSE TRUE TRUE FALSE FALSE
## 93 93 Susana F FALSE FALSE FALSE FALSE FALSE FALSE
## 94 94 Teobaldo M TRUE FALSE FALSE FALSE TRUE TRUE
## 95 95 Teresa F FALSE FALSE FALSE FALSE FALSE FALSE
## 96 96 Tiburcio M FALSE FALSE FALSE TRUE FALSE FALSE
## 97 97 Verónica F TRUE TRUE TRUE FALSE FALSE FALSE
## 98 98 Walter F TRUE TRUE FALSE FALSE FALSE FALSE
## 99 99 Xóchitl F FALSE TRUE TRUE TRUE TRUE FALSE
## 100 100 Yuri F TRUE FALSE FALSE FALSE FALSE FALSEdatos <- read.csv(file = "https://raw.githubusercontent.com/rpizarrog/Probabilidad-y-EstadIstica-VIRTUAL-DISTANCIA/main/datos/alumnos.deportes.2021.csv", header = TRUE, stringsAsFactors = TRUE, encoding = "ISO-8859")
datos## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 1 Adrián M TRUE FALSE TRUE TRUE TRUE FALSE
## 2 2 Adriana F TRUE TRUE FALSE FALSE FALSE FALSE
## 3 3 América F TRUE TRUE TRUE TRUE TRUE FALSE
## 4 4 Ana F FALSE FALSE FALSE FALSE FALSE FALSE
## 5 5 Angel M TRUE TRUE FALSE FALSE FALSE FALSE
## 6 6 Angélica F TRUE TRUE TRUE FALSE FALSE FALSE
## 7 7 Antonieta F FALSE FALSE FALSE FALSE FALSE TRUE
## 8 8 Antonio M FALSE FALSE FALSE FALSE FALSE FALSE
## 9 9 Aracely F FALSE FALSE FALSE FALSE FALSE TRUE
## 10 10 Arcelia F FALSE FALSE FALSE FALSE TRUE TRUE
## 11 11 Argelia F FALSE FALSE FALSE FALSE FALSE TRUE
## 12 12 Armenia F FALSE FALSE TRUE FALSE FALSE TRUE
## 13 13 Arnulfo M FALSE FALSE TRUE FALSE FALSE FALSE
## 14 14 Arturo M FALSE FALSE FALSE FALSE FALSE FALSE
## 15 15 Bety F TRUE TRUE FALSE FALSE FALSE FALSE
## 16 16 Calixto M TRUE FALSE FALSE FALSE FALSE FALSE
## 17 17 Carlos M TRUE FALSE FALSE FALSE FALSE FALSE
## 18 18 Carmen F FALSE TRUE FALSE FALSE FALSE FALSE
## 19 19 Consuelo F FALSE FALSE FALSE FALSE FALSE TRUE
## 20 20 Dagoberto M FALSE FALSE TRUE FALSE FALSE FALSE
## 21 21 Dalia F TRUE FALSE FALSE FALSE FALSE FALSE
## 22 22 Dany F TRUE TRUE FALSE FALSE FALSE FALSE
## 23 23 Eduardo M TRUE FALSE FALSE FALSE FALSE FALSE
## 24 24 Efren M TRUE FALSE FALSE TRUE FALSE FALSE
## 25 25 Eraclio M TRUE FALSE TRUE FALSE FALSE FALSE
## 26 26 Ernestina F TRUE FALSE TRUE FALSE TRUE FALSE
## 27 27 Ernesto M FALSE TRUE FALSE FALSE FALSE FALSE
## 28 28 Fabián M FALSE TRUE TRUE FALSE FALSE FALSE
## 29 29 Federico M FALSE FALSE FALSE TRUE FALSE FALSE
## 30 30 Felipe M TRUE FALSE FALSE TRUE TRUE FALSE
## 31 31 Fernanda F FALSE FALSE FALSE FALSE FALSE FALSE
## 32 32 Fernando M TRUE FALSE FALSE TRUE FALSE FALSE
## 33 33 Gabino M FALSE TRUE FALSE FALSE FALSE FALSE
## 34 34 Gabriel M TRUE FALSE FALSE FALSE FALSE FALSE
## 35 35 Gabriela F FALSE FALSE FALSE FALSE FALSE FALSE
## 36 36 Genaro M FALSE FALSE TRUE FALSE FALSE TRUE
## 37 37 Gerardina F TRUE TRUE FALSE FALSE TRUE TRUE
## 38 38 Gerardo M TRUE FALSE TRUE FALSE FALSE TRUE
## 39 39 Giovanni M FALSE TRUE FALSE FALSE TRUE TRUE
## 40 40 Gonzalo M TRUE FALSE FALSE FALSE FALSE FALSE
## 41 41 Guillermina F TRUE FALSE FALSE FALSE TRUE FALSE
## 42 42 Guillermo M FALSE TRUE FALSE FALSE TRUE TRUE
## 43 43 Heladio M FALSE TRUE FALSE TRUE FALSE FALSE
## 44 44 Javier M FALSE TRUE FALSE FALSE FALSE FALSE
## 45 45 Jeorgina F FALSE TRUE FALSE FALSE FALSE FALSE
## 46 46 Joaquín M FALSE FALSE TRUE FALSE FALSE TRUE
## 47 47 Jorge M TRUE TRUE FALSE FALSE FALSE FALSE
## 48 48 Juan M TRUE FALSE FALSE TRUE FALSE FALSE
## 49 49 Julieta F FALSE FALSE FALSE FALSE FALSE TRUE
## 50 50 Julio M FALSE TRUE FALSE TRUE FALSE FALSE
## 51 51 Lalo M FALSE FALSE TRUE FALSE FALSE FALSE
## 52 52 Laura F FALSE TRUE FALSE FALSE FALSE FALSE
## 53 53 Leonardo M FALSE FALSE TRUE FALSE FALSE TRUE
## 54 54 Liliana F FALSE FALSE TRUE FALSE FALSE FALSE
## 55 55 Lorenzo M TRUE FALSE TRUE FALSE FALSE FALSE
## 56 56 Lucía F TRUE TRUE FALSE FALSE TRUE TRUE
## 57 57 Lucy F TRUE FALSE TRUE TRUE FALSE FALSE
## 58 58 Luis M FALSE FALSE TRUE FALSE FALSE FALSE
## 59 59 Luisa F FALSE FALSE FALSE FALSE FALSE FALSE
## 60 60 Lupita F TRUE TRUE FALSE FALSE FALSE FALSE
## 61 61 Manuel M FALSE TRUE FALSE FALSE FALSE FALSE
## 62 62 Marcela F FALSE FALSE FALSE TRUE FALSE FALSE
## 63 63 Margarita F FALSE TRUE FALSE TRUE FALSE FALSE
## 64 64 Margarito M FALSE FALSE FALSE FALSE FALSE TRUE
## 65 65 Maria F FALSE TRUE FALSE FALSE FALSE FALSE
## 66 66 Mario M TRUE TRUE FALSE FALSE TRUE FALSE
## 67 67 Mary F TRUE TRUE TRUE TRUE FALSE TRUE
## 68 68 Memo M TRUE FALSE FALSE FALSE TRUE FALSE
## 69 69 Miguel M TRUE TRUE FALSE FALSE FALSE FALSE
## 70 70 Mikaela F FALSE TRUE FALSE FALSE FALSE FALSE
## 71 71 Orlando M TRUE FALSE FALSE FALSE FALSE FALSE
## 72 72 Oscar M FALSE FALSE FALSE FALSE FALSE FALSE
## 73 73 Otilia F TRUE FALSE FALSE TRUE FALSE FALSE
## 74 74 Paco M TRUE FALSE TRUE FALSE TRUE FALSE
## 75 75 Patricia F TRUE FALSE FALSE TRUE FALSE FALSE
## 76 76 Paty F TRUE TRUE FALSE FALSE FALSE FALSE
## 77 77 Pedro M TRUE TRUE FALSE FALSE FALSE FALSE
## 78 78 Perla F FALSE FALSE FALSE FALSE FALSE FALSE
## 79 79 Plácido M FALSE FALSE TRUE FALSE FALSE TRUE
## 80 80 Raquel F TRUE TRUE FALSE FALSE FALSE FALSE
## 81 81 Raul M TRUE FALSE FALSE FALSE FALSE FALSE
## 82 82 Romualdo M TRUE FALSE FALSE FALSE FALSE FALSE
## 83 83 Ronaldo M TRUE TRUE FALSE FALSE TRUE TRUE
## 84 84 Rosario F FALSE FALSE FALSE FALSE FALSE FALSE
## 85 85 Rubén M TRUE FALSE FALSE FALSE FALSE FALSE
## 86 86 Rubý F TRUE TRUE FALSE FALSE FALSE FALSE
## 87 87 Salvador M TRUE FALSE FALSE TRUE FALSE FALSE
## 88 88 Sandra F FALSE FALSE FALSE FALSE FALSE FALSE
## 89 89 Sandro M FALSE FALSE FALSE FALSE FALSE TRUE
## 90 90 Sandy F FALSE TRUE FALSE FALSE FALSE FALSE
## 91 91 Saul M TRUE FALSE TRUE FALSE FALSE FALSE
## 92 92 Sotelo M FALSE FALSE TRUE TRUE FALSE FALSE
## 93 93 Susana F FALSE FALSE FALSE FALSE FALSE FALSE
## 94 94 Teobaldo M TRUE FALSE FALSE FALSE TRUE TRUE
## 95 95 Teresa F FALSE FALSE FALSE FALSE FALSE FALSE
## 96 96 Tiburcio M FALSE FALSE FALSE TRUE FALSE FALSE
## 97 97 Verónica F TRUE TRUE TRUE FALSE FALSE FALSE
## 98 98 Walter F TRUE TRUE FALSE FALSE FALSE FALSE
## 99 99 Xóchitl F FALSE TRUE TRUE TRUE TRUE FALSE
## 100 100 Yuri F TRUE FALSE FALSE FALSE FALSE FALSEN significa el total de elementos de el espacio muestra
N <- nrow(datos)
N## [1] 100Se deben crear eventos o conjuntos de femeninos, masculinos, futbol, basquetbol, voleybol, atletismo, ajedrez, tenis
femenino <- filter(.data = datos, sexo == 'F')
femenino## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 2 Adriana F TRUE TRUE FALSE FALSE FALSE FALSE
## 2 3 América F TRUE TRUE TRUE TRUE TRUE FALSE
## 3 4 Ana F FALSE FALSE FALSE FALSE FALSE FALSE
## 4 6 Angélica F TRUE TRUE TRUE FALSE FALSE FALSE
## 5 7 Antonieta F FALSE FALSE FALSE FALSE FALSE TRUE
## 6 9 Aracely F FALSE FALSE FALSE FALSE FALSE TRUE
## 7 10 Arcelia F FALSE FALSE FALSE FALSE TRUE TRUE
## 8 11 Argelia F FALSE FALSE FALSE FALSE FALSE TRUE
## 9 12 Armenia F FALSE FALSE TRUE FALSE FALSE TRUE
## 10 15 Bety F TRUE TRUE FALSE FALSE FALSE FALSE
## 11 18 Carmen F FALSE TRUE FALSE FALSE FALSE FALSE
## 12 19 Consuelo F FALSE FALSE FALSE FALSE FALSE TRUE
## 13 21 Dalia F TRUE FALSE FALSE FALSE FALSE FALSE
## 14 22 Dany F TRUE TRUE FALSE FALSE FALSE FALSE
## 15 26 Ernestina F TRUE FALSE TRUE FALSE TRUE FALSE
## 16 31 Fernanda F FALSE FALSE FALSE FALSE FALSE FALSE
## 17 35 Gabriela F FALSE FALSE FALSE FALSE FALSE FALSE
## 18 37 Gerardina F TRUE TRUE FALSE FALSE TRUE TRUE
## 19 41 Guillermina F TRUE FALSE FALSE FALSE TRUE FALSE
## 20 45 Jeorgina F FALSE TRUE FALSE FALSE FALSE FALSE
## 21 49 Julieta F FALSE FALSE FALSE FALSE FALSE TRUE
## 22 52 Laura F FALSE TRUE FALSE FALSE FALSE FALSE
## 23 54 Liliana F FALSE FALSE TRUE FALSE FALSE FALSE
## 24 56 Lucía F TRUE TRUE FALSE FALSE TRUE TRUE
## 25 57 Lucy F TRUE FALSE TRUE TRUE FALSE FALSE
## 26 59 Luisa F FALSE FALSE FALSE FALSE FALSE FALSE
## 27 60 Lupita F TRUE TRUE FALSE FALSE FALSE FALSE
## 28 62 Marcela F FALSE FALSE FALSE TRUE FALSE FALSE
## 29 63 Margarita F FALSE TRUE FALSE TRUE FALSE FALSE
## 30 65 Maria F FALSE TRUE FALSE FALSE FALSE FALSE
## 31 67 Mary F TRUE TRUE TRUE TRUE FALSE TRUE
## 32 70 Mikaela F FALSE TRUE FALSE FALSE FALSE FALSE
## 33 73 Otilia F TRUE FALSE FALSE TRUE FALSE FALSE
## 34 75 Patricia F TRUE FALSE FALSE TRUE FALSE FALSE
## 35 76 Paty F TRUE TRUE FALSE FALSE FALSE FALSE
## 36 78 Perla F FALSE FALSE FALSE FALSE FALSE FALSE
## 37 80 Raquel F TRUE TRUE FALSE FALSE FALSE FALSE
## 38 84 Rosario F FALSE FALSE FALSE FALSE FALSE FALSE
## 39 86 Rubý F TRUE TRUE FALSE FALSE FALSE FALSE
## 40 88 Sandra F FALSE FALSE FALSE FALSE FALSE FALSE
## 41 90 Sandy F FALSE TRUE FALSE FALSE FALSE FALSE
## 42 93 Susana F FALSE FALSE FALSE FALSE FALSE FALSE
## 43 95 Teresa F FALSE FALSE FALSE FALSE FALSE FALSE
## 44 97 Verónica F TRUE TRUE TRUE FALSE FALSE FALSE
## 45 98 Walter F TRUE TRUE FALSE FALSE FALSE FALSE
## 46 99 Xóchitl F FALSE TRUE TRUE TRUE TRUE FALSE
## 47 100 Yuri F TRUE FALSE FALSE FALSE FALSE FALSEmasculino <- filter(.data = datos, sexo == 'M')
masculino## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 1 Adrián M TRUE FALSE TRUE TRUE TRUE FALSE
## 2 5 Angel M TRUE TRUE FALSE FALSE FALSE FALSE
## 3 8 Antonio M FALSE FALSE FALSE FALSE FALSE FALSE
## 4 13 Arnulfo M FALSE FALSE TRUE FALSE FALSE FALSE
## 5 14 Arturo M FALSE FALSE FALSE FALSE FALSE FALSE
## 6 16 Calixto M TRUE FALSE FALSE FALSE FALSE FALSE
## 7 17 Carlos M TRUE FALSE FALSE FALSE FALSE FALSE
## 8 20 Dagoberto M FALSE FALSE TRUE FALSE FALSE FALSE
## 9 23 Eduardo M TRUE FALSE FALSE FALSE FALSE FALSE
## 10 24 Efren M TRUE FALSE FALSE TRUE FALSE FALSE
## 11 25 Eraclio M TRUE FALSE TRUE FALSE FALSE FALSE
## 12 27 Ernesto M FALSE TRUE FALSE FALSE FALSE FALSE
## 13 28 Fabián M FALSE TRUE TRUE FALSE FALSE FALSE
## 14 29 Federico M FALSE FALSE FALSE TRUE FALSE FALSE
## 15 30 Felipe M TRUE FALSE FALSE TRUE TRUE FALSE
## 16 32 Fernando M TRUE FALSE FALSE TRUE FALSE FALSE
## 17 33 Gabino M FALSE TRUE FALSE FALSE FALSE FALSE
## 18 34 Gabriel M TRUE FALSE FALSE FALSE FALSE FALSE
## 19 36 Genaro M FALSE FALSE TRUE FALSE FALSE TRUE
## 20 38 Gerardo M TRUE FALSE TRUE FALSE FALSE TRUE
## 21 39 Giovanni M FALSE TRUE FALSE FALSE TRUE TRUE
## 22 40 Gonzalo M TRUE FALSE FALSE FALSE FALSE FALSE
## 23 42 Guillermo M FALSE TRUE FALSE FALSE TRUE TRUE
## 24 43 Heladio M FALSE TRUE FALSE TRUE FALSE FALSE
## 25 44 Javier M FALSE TRUE FALSE FALSE FALSE FALSE
## 26 46 Joaquín M FALSE FALSE TRUE FALSE FALSE TRUE
## 27 47 Jorge M TRUE TRUE FALSE FALSE FALSE FALSE
## 28 48 Juan M TRUE FALSE FALSE TRUE FALSE FALSE
## 29 50 Julio M FALSE TRUE FALSE TRUE FALSE FALSE
## 30 51 Lalo M FALSE FALSE TRUE FALSE FALSE FALSE
## 31 53 Leonardo M FALSE FALSE TRUE FALSE FALSE TRUE
## 32 55 Lorenzo M TRUE FALSE TRUE FALSE FALSE FALSE
## 33 58 Luis M FALSE FALSE TRUE FALSE FALSE FALSE
## 34 61 Manuel M FALSE TRUE FALSE FALSE FALSE FALSE
## 35 64 Margarito M FALSE FALSE FALSE FALSE FALSE TRUE
## 36 66 Mario M TRUE TRUE FALSE FALSE TRUE FALSE
## 37 68 Memo M TRUE FALSE FALSE FALSE TRUE FALSE
## 38 69 Miguel M TRUE TRUE FALSE FALSE FALSE FALSE
## 39 71 Orlando M TRUE FALSE FALSE FALSE FALSE FALSE
## 40 72 Oscar M FALSE FALSE FALSE FALSE FALSE FALSE
## 41 74 Paco M TRUE FALSE TRUE FALSE TRUE FALSE
## 42 77 Pedro M TRUE TRUE FALSE FALSE FALSE FALSE
## 43 79 Plácido M FALSE FALSE TRUE FALSE FALSE TRUE
## 44 81 Raul M TRUE FALSE FALSE FALSE FALSE FALSE
## 45 82 Romualdo M TRUE FALSE FALSE FALSE FALSE FALSE
## 46 83 Ronaldo M TRUE TRUE FALSE FALSE TRUE TRUE
## 47 85 Rubén M TRUE FALSE FALSE FALSE FALSE FALSE
## 48 87 Salvador M TRUE FALSE FALSE TRUE FALSE FALSE
## 49 89 Sandro M FALSE FALSE FALSE FALSE FALSE TRUE
## 50 91 Saul M TRUE FALSE TRUE FALSE FALSE FALSE
## 51 92 Sotelo M FALSE FALSE TRUE TRUE FALSE FALSE
## 52 94 Teobaldo M TRUE FALSE FALSE FALSE TRUE TRUE
## 53 96 Tiburcio M FALSE FALSE FALSE TRUE FALSE FALSEfutbol <- filter(.data = datos, futbol == TRUE)
futbol## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 1 Adrián M TRUE FALSE TRUE TRUE TRUE FALSE
## 2 2 Adriana F TRUE TRUE FALSE FALSE FALSE FALSE
## 3 3 América F TRUE TRUE TRUE TRUE TRUE FALSE
## 4 5 Angel M TRUE TRUE FALSE FALSE FALSE FALSE
## 5 6 Angélica F TRUE TRUE TRUE FALSE FALSE FALSE
## 6 15 Bety F TRUE TRUE FALSE FALSE FALSE FALSE
## 7 16 Calixto M TRUE FALSE FALSE FALSE FALSE FALSE
## 8 17 Carlos M TRUE FALSE FALSE FALSE FALSE FALSE
## 9 21 Dalia F TRUE FALSE FALSE FALSE FALSE FALSE
## 10 22 Dany F TRUE TRUE FALSE FALSE FALSE FALSE
## 11 23 Eduardo M TRUE FALSE FALSE FALSE FALSE FALSE
## 12 24 Efren M TRUE FALSE FALSE TRUE FALSE FALSE
## 13 25 Eraclio M TRUE FALSE TRUE FALSE FALSE FALSE
## 14 26 Ernestina F TRUE FALSE TRUE FALSE TRUE FALSE
## 15 30 Felipe M TRUE FALSE FALSE TRUE TRUE FALSE
## 16 32 Fernando M TRUE FALSE FALSE TRUE FALSE FALSE
## 17 34 Gabriel M TRUE FALSE FALSE FALSE FALSE FALSE
## 18 37 Gerardina F TRUE TRUE FALSE FALSE TRUE TRUE
## 19 38 Gerardo M TRUE FALSE TRUE FALSE FALSE TRUE
## 20 40 Gonzalo M TRUE FALSE FALSE FALSE FALSE FALSE
## 21 41 Guillermina F TRUE FALSE FALSE FALSE TRUE FALSE
## 22 47 Jorge M TRUE TRUE FALSE FALSE FALSE FALSE
## 23 48 Juan M TRUE FALSE FALSE TRUE FALSE FALSE
## 24 55 Lorenzo M TRUE FALSE TRUE FALSE FALSE FALSE
## 25 56 Lucía F TRUE TRUE FALSE FALSE TRUE TRUE
## 26 57 Lucy F TRUE FALSE TRUE TRUE FALSE FALSE
## 27 60 Lupita F TRUE TRUE FALSE FALSE FALSE FALSE
## 28 66 Mario M TRUE TRUE FALSE FALSE TRUE FALSE
## 29 67 Mary F TRUE TRUE TRUE TRUE FALSE TRUE
## 30 68 Memo M TRUE FALSE FALSE FALSE TRUE FALSE
## 31 69 Miguel M TRUE TRUE FALSE FALSE FALSE FALSE
## 32 71 Orlando M TRUE FALSE FALSE FALSE FALSE FALSE
## 33 73 Otilia F TRUE FALSE FALSE TRUE FALSE FALSE
## 34 74 Paco M TRUE FALSE TRUE FALSE TRUE FALSE
## 35 75 Patricia F TRUE FALSE FALSE TRUE FALSE FALSE
## 36 76 Paty F TRUE TRUE FALSE FALSE FALSE FALSE
## 37 77 Pedro M TRUE TRUE FALSE FALSE FALSE FALSE
## 38 80 Raquel F TRUE TRUE FALSE FALSE FALSE FALSE
## 39 81 Raul M TRUE FALSE FALSE FALSE FALSE FALSE
## 40 82 Romualdo M TRUE FALSE FALSE FALSE FALSE FALSE
## 41 83 Ronaldo M TRUE TRUE FALSE FALSE TRUE TRUE
## 42 85 Rubén M TRUE FALSE FALSE FALSE FALSE FALSE
## 43 86 Rubý F TRUE TRUE FALSE FALSE FALSE FALSE
## 44 87 Salvador M TRUE FALSE FALSE TRUE FALSE FALSE
## 45 91 Saul M TRUE FALSE TRUE FALSE FALSE FALSE
## 46 94 Teobaldo M TRUE FALSE FALSE FALSE TRUE TRUE
## 47 97 Verónica F TRUE TRUE TRUE FALSE FALSE FALSE
## 48 98 Walter F TRUE TRUE FALSE FALSE FALSE FALSE
## 49 100 Yuri F TRUE FALSE FALSE FALSE FALSE FALSEbasquetbol <- filter(.data = datos, basquetbol == TRUE)
basquetbol## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 2 Adriana F TRUE TRUE FALSE FALSE FALSE FALSE
## 2 3 América F TRUE TRUE TRUE TRUE TRUE FALSE
## 3 5 Angel M TRUE TRUE FALSE FALSE FALSE FALSE
## 4 6 Angélica F TRUE TRUE TRUE FALSE FALSE FALSE
## 5 15 Bety F TRUE TRUE FALSE FALSE FALSE FALSE
## 6 18 Carmen F FALSE TRUE FALSE FALSE FALSE FALSE
## 7 22 Dany F TRUE TRUE FALSE FALSE FALSE FALSE
## 8 27 Ernesto M FALSE TRUE FALSE FALSE FALSE FALSE
## 9 28 Fabián M FALSE TRUE TRUE FALSE FALSE FALSE
## 10 33 Gabino M FALSE TRUE FALSE FALSE FALSE FALSE
## 11 37 Gerardina F TRUE TRUE FALSE FALSE TRUE TRUE
## 12 39 Giovanni M FALSE TRUE FALSE FALSE TRUE TRUE
## 13 42 Guillermo M FALSE TRUE FALSE FALSE TRUE TRUE
## 14 43 Heladio M FALSE TRUE FALSE TRUE FALSE FALSE
## 15 44 Javier M FALSE TRUE FALSE FALSE FALSE FALSE
## 16 45 Jeorgina F FALSE TRUE FALSE FALSE FALSE FALSE
## 17 47 Jorge M TRUE TRUE FALSE FALSE FALSE FALSE
## 18 50 Julio M FALSE TRUE FALSE TRUE FALSE FALSE
## 19 52 Laura F FALSE TRUE FALSE FALSE FALSE FALSE
## 20 56 Lucía F TRUE TRUE FALSE FALSE TRUE TRUE
## 21 60 Lupita F TRUE TRUE FALSE FALSE FALSE FALSE
## 22 61 Manuel M FALSE TRUE FALSE FALSE FALSE FALSE
## 23 63 Margarita F FALSE TRUE FALSE TRUE FALSE FALSE
## 24 65 Maria F FALSE TRUE FALSE FALSE FALSE FALSE
## 25 66 Mario M TRUE TRUE FALSE FALSE TRUE FALSE
## 26 67 Mary F TRUE TRUE TRUE TRUE FALSE TRUE
## 27 69 Miguel M TRUE TRUE FALSE FALSE FALSE FALSE
## 28 70 Mikaela F FALSE TRUE FALSE FALSE FALSE FALSE
## 29 76 Paty F TRUE TRUE FALSE FALSE FALSE FALSE
## 30 77 Pedro M TRUE TRUE FALSE FALSE FALSE FALSE
## 31 80 Raquel F TRUE TRUE FALSE FALSE FALSE FALSE
## 32 83 Ronaldo M TRUE TRUE FALSE FALSE TRUE TRUE
## 33 86 Rubý F TRUE TRUE FALSE FALSE FALSE FALSE
## 34 90 Sandy F FALSE TRUE FALSE FALSE FALSE FALSE
## 35 97 Verónica F TRUE TRUE TRUE FALSE FALSE FALSE
## 36 98 Walter F TRUE TRUE FALSE FALSE FALSE FALSE
## 37 99 Xóchitl F FALSE TRUE TRUE TRUE TRUE FALSEbasquetbol <- filter(.data = datos, basquetbol == TRUE)
basquetbol## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 2 Adriana F TRUE TRUE FALSE FALSE FALSE FALSE
## 2 3 América F TRUE TRUE TRUE TRUE TRUE FALSE
## 3 5 Angel M TRUE TRUE FALSE FALSE FALSE FALSE
## 4 6 Angélica F TRUE TRUE TRUE FALSE FALSE FALSE
## 5 15 Bety F TRUE TRUE FALSE FALSE FALSE FALSE
## 6 18 Carmen F FALSE TRUE FALSE FALSE FALSE FALSE
## 7 22 Dany F TRUE TRUE FALSE FALSE FALSE FALSE
## 8 27 Ernesto M FALSE TRUE FALSE FALSE FALSE FALSE
## 9 28 Fabián M FALSE TRUE TRUE FALSE FALSE FALSE
## 10 33 Gabino M FALSE TRUE FALSE FALSE FALSE FALSE
## 11 37 Gerardina F TRUE TRUE FALSE FALSE TRUE TRUE
## 12 39 Giovanni M FALSE TRUE FALSE FALSE TRUE TRUE
## 13 42 Guillermo M FALSE TRUE FALSE FALSE TRUE TRUE
## 14 43 Heladio M FALSE TRUE FALSE TRUE FALSE FALSE
## 15 44 Javier M FALSE TRUE FALSE FALSE FALSE FALSE
## 16 45 Jeorgina F FALSE TRUE FALSE FALSE FALSE FALSE
## 17 47 Jorge M TRUE TRUE FALSE FALSE FALSE FALSE
## 18 50 Julio M FALSE TRUE FALSE TRUE FALSE FALSE
## 19 52 Laura F FALSE TRUE FALSE FALSE FALSE FALSE
## 20 56 Lucía F TRUE TRUE FALSE FALSE TRUE TRUE
## 21 60 Lupita F TRUE TRUE FALSE FALSE FALSE FALSE
## 22 61 Manuel M FALSE TRUE FALSE FALSE FALSE FALSE
## 23 63 Margarita F FALSE TRUE FALSE TRUE FALSE FALSE
## 24 65 Maria F FALSE TRUE FALSE FALSE FALSE FALSE
## 25 66 Mario M TRUE TRUE FALSE FALSE TRUE FALSE
## 26 67 Mary F TRUE TRUE TRUE TRUE FALSE TRUE
## 27 69 Miguel M TRUE TRUE FALSE FALSE FALSE FALSE
## 28 70 Mikaela F FALSE TRUE FALSE FALSE FALSE FALSE
## 29 76 Paty F TRUE TRUE FALSE FALSE FALSE FALSE
## 30 77 Pedro M TRUE TRUE FALSE FALSE FALSE FALSE
## 31 80 Raquel F TRUE TRUE FALSE FALSE FALSE FALSE
## 32 83 Ronaldo M TRUE TRUE FALSE FALSE TRUE TRUE
## 33 86 Rubý F TRUE TRUE FALSE FALSE FALSE FALSE
## 34 90 Sandy F FALSE TRUE FALSE FALSE FALSE FALSE
## 35 97 Verónica F TRUE TRUE TRUE FALSE FALSE FALSE
## 36 98 Walter F TRUE TRUE FALSE FALSE FALSE FALSE
## 37 99 Xóchitl F FALSE TRUE TRUE TRUE TRUE FALSEvoleybol <- filter(.data = datos, voleybol == TRUE)
voleybol## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 1 Adrián M TRUE FALSE TRUE TRUE TRUE FALSE
## 2 3 América F TRUE TRUE TRUE TRUE TRUE FALSE
## 3 6 Angélica F TRUE TRUE TRUE FALSE FALSE FALSE
## 4 12 Armenia F FALSE FALSE TRUE FALSE FALSE TRUE
## 5 13 Arnulfo M FALSE FALSE TRUE FALSE FALSE FALSE
## 6 20 Dagoberto M FALSE FALSE TRUE FALSE FALSE FALSE
## 7 25 Eraclio M TRUE FALSE TRUE FALSE FALSE FALSE
## 8 26 Ernestina F TRUE FALSE TRUE FALSE TRUE FALSE
## 9 28 Fabián M FALSE TRUE TRUE FALSE FALSE FALSE
## 10 36 Genaro M FALSE FALSE TRUE FALSE FALSE TRUE
## 11 38 Gerardo M TRUE FALSE TRUE FALSE FALSE TRUE
## 12 46 Joaquín M FALSE FALSE TRUE FALSE FALSE TRUE
## 13 51 Lalo M FALSE FALSE TRUE FALSE FALSE FALSE
## 14 53 Leonardo M FALSE FALSE TRUE FALSE FALSE TRUE
## 15 54 Liliana F FALSE FALSE TRUE FALSE FALSE FALSE
## 16 55 Lorenzo M TRUE FALSE TRUE FALSE FALSE FALSE
## 17 57 Lucy F TRUE FALSE TRUE TRUE FALSE FALSE
## 18 58 Luis M FALSE FALSE TRUE FALSE FALSE FALSE
## 19 67 Mary F TRUE TRUE TRUE TRUE FALSE TRUE
## 20 74 Paco M TRUE FALSE TRUE FALSE TRUE FALSE
## 21 79 Plácido M FALSE FALSE TRUE FALSE FALSE TRUE
## 22 91 Saul M TRUE FALSE TRUE FALSE FALSE FALSE
## 23 92 Sotelo M FALSE FALSE TRUE TRUE FALSE FALSE
## 24 97 Verónica F TRUE TRUE TRUE FALSE FALSE FALSE
## 25 99 Xóchitl F FALSE TRUE TRUE TRUE TRUE FALSEatletismo <- filter(.data = datos, atletismo == TRUE)
atletismo## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 1 Adrián M TRUE FALSE TRUE TRUE TRUE FALSE
## 2 3 América F TRUE TRUE TRUE TRUE TRUE FALSE
## 3 24 Efren M TRUE FALSE FALSE TRUE FALSE FALSE
## 4 29 Federico M FALSE FALSE FALSE TRUE FALSE FALSE
## 5 30 Felipe M TRUE FALSE FALSE TRUE TRUE FALSE
## 6 32 Fernando M TRUE FALSE FALSE TRUE FALSE FALSE
## 7 43 Heladio M FALSE TRUE FALSE TRUE FALSE FALSE
## 8 48 Juan M TRUE FALSE FALSE TRUE FALSE FALSE
## 9 50 Julio M FALSE TRUE FALSE TRUE FALSE FALSE
## 10 57 Lucy F TRUE FALSE TRUE TRUE FALSE FALSE
## 11 62 Marcela F FALSE FALSE FALSE TRUE FALSE FALSE
## 12 63 Margarita F FALSE TRUE FALSE TRUE FALSE FALSE
## 13 67 Mary F TRUE TRUE TRUE TRUE FALSE TRUE
## 14 73 Otilia F TRUE FALSE FALSE TRUE FALSE FALSE
## 15 75 Patricia F TRUE FALSE FALSE TRUE FALSE FALSE
## 16 87 Salvador M TRUE FALSE FALSE TRUE FALSE FALSE
## 17 92 Sotelo M FALSE FALSE TRUE TRUE FALSE FALSE
## 18 96 Tiburcio M FALSE FALSE FALSE TRUE FALSE FALSE
## 19 99 Xóchitl F FALSE TRUE TRUE TRUE TRUE FALSEajedrez <- filter(.data = datos, ajedrez == TRUE)
ajedrez## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 1 Adrián M TRUE FALSE TRUE TRUE TRUE FALSE
## 2 3 América F TRUE TRUE TRUE TRUE TRUE FALSE
## 3 10 Arcelia F FALSE FALSE FALSE FALSE TRUE TRUE
## 4 26 Ernestina F TRUE FALSE TRUE FALSE TRUE FALSE
## 5 30 Felipe M TRUE FALSE FALSE TRUE TRUE FALSE
## 6 37 Gerardina F TRUE TRUE FALSE FALSE TRUE TRUE
## 7 39 Giovanni M FALSE TRUE FALSE FALSE TRUE TRUE
## 8 41 Guillermina F TRUE FALSE FALSE FALSE TRUE FALSE
## 9 42 Guillermo M FALSE TRUE FALSE FALSE TRUE TRUE
## 10 56 Lucía F TRUE TRUE FALSE FALSE TRUE TRUE
## 11 66 Mario M TRUE TRUE FALSE FALSE TRUE FALSE
## 12 68 Memo M TRUE FALSE FALSE FALSE TRUE FALSE
## 13 74 Paco M TRUE FALSE TRUE FALSE TRUE FALSE
## 14 83 Ronaldo M TRUE TRUE FALSE FALSE TRUE TRUE
## 15 94 Teobaldo M TRUE FALSE FALSE FALSE TRUE TRUE
## 16 99 Xóchitl F FALSE TRUE TRUE TRUE TRUE FALSEtenis <- filter(.data = datos, tenis == TRUE)
tenis## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis
## 1 7 Antonieta F FALSE FALSE FALSE FALSE FALSE TRUE
## 2 9 Aracely F FALSE FALSE FALSE FALSE FALSE TRUE
## 3 10 Arcelia F FALSE FALSE FALSE FALSE TRUE TRUE
## 4 11 Argelia F FALSE FALSE FALSE FALSE FALSE TRUE
## 5 12 Armenia F FALSE FALSE TRUE FALSE FALSE TRUE
## 6 19 Consuelo F FALSE FALSE FALSE FALSE FALSE TRUE
## 7 36 Genaro M FALSE FALSE TRUE FALSE FALSE TRUE
## 8 37 Gerardina F TRUE TRUE FALSE FALSE TRUE TRUE
## 9 38 Gerardo M TRUE FALSE TRUE FALSE FALSE TRUE
## 10 39 Giovanni M FALSE TRUE FALSE FALSE TRUE TRUE
## 11 42 Guillermo M FALSE TRUE FALSE FALSE TRUE TRUE
## 12 46 Joaquín M FALSE FALSE TRUE FALSE FALSE TRUE
## 13 49 Julieta F FALSE FALSE FALSE FALSE FALSE TRUE
## 14 53 Leonardo M FALSE FALSE TRUE FALSE FALSE TRUE
## 15 56 Lucía F TRUE TRUE FALSE FALSE TRUE TRUE
## 16 64 Margarito M FALSE FALSE FALSE FALSE FALSE TRUE
## 17 67 Mary F TRUE TRUE TRUE TRUE FALSE TRUE
## 18 79 Plácido M FALSE FALSE TRUE FALSE FALSE TRUE
## 19 83 Ronaldo M TRUE TRUE FALSE FALSE TRUE TRUE
## 20 89 Sandro M FALSE FALSE FALSE FALSE FALSE TRUE
## 21 94 Teobaldo M TRUE FALSE FALSE FALSE TRUE TRUEEl experimento es seleccionar o elegir a una persona aleatoriamente para determinar y/o calcular probabilidades.
\[ P(masculino) = \frac{n}{N} \]
n <- nrow(masculino)
n## [1] 53paste("La probabilidad de que se del género masculino es: ",fdeterminar.frecuencia(n,N))## [1] "La probabilidad de que se del género masculino es: 53 %"\[ P(femenino) = \frac{n}{N} \]
n <- nrow(femenino)
n## [1] 47paste("La probabilidad de que se del género femenino es: ",fdeterminar.frecuencia(n,N))## [1] "La probabilidad de que se del género femenino es: 47 %"¿Cuál es la probabilidad de que se elija a un estudiante mujer que juega atletismo?
\[ P(femenino,atletismo) = \frac{n}{N} \]
tabla<-subset(femenino,atletismo=="TRUE")
n <- nrow(tabla)
n## [1] 8paste("La probabilidad de que se del género femenino es: ",fdeterminar.frecuencia(n,N))## [1] "La probabilidad de que se del género femenino es: 8 %"Los evento son subconjuntos de todo el espacio muestral, se crearon distintos conjuntos de datos que permiten expresar probabilidades.
Para determina la probabilidad de un evento o de un conjunto se hace determinando la frecuencia relativa y porcentual, divider la cantidad de ocasiones (punto muestrales) que hay de ese conjunto con respecto a el total del espacio meustral \(\frac{n}{N}\).
A partir de un conjunto de datos relacionados con diferentes areas deportivas pudimos encontrar distintas probabilidades utilizando la formula correspondiente a cada uno de los eventos situandonos en obtener la probabilidad de cada una de ellas.