—————————————–

CONJUNTOS EN R

—————————————–

EQUIPO NUMERO 3

19041231 Osiris Ochoa Solis
19041239 Elias Jr. Ramos Lopez
19041216 Frida Krystel Herrera Hernández
19041198 Marco Daniel De La Torre Mendia
19041206 Irving alonso Galvan carabez
19041230 Nevarez Lopez Fernanda Verónica

—————————————–

PROCEDIMIENTO

—————————————–

De una población de 34 nombres se asginan aleatoriamente participantes que jugarán en alguna disciplina deportiva.
Puede coincidir que los nombres participen en más de una disciplina.
Se realizan operaciones de conjuntos union, intersección y diferencia
Se integran un conjuto de datos con valores TRUE or FALSE para cada nombre y cada disciplina deportiva

—————————————–

PARTE 1

INICIO

—————————————–

PASO 1: GENERAMOS LOS NOMBRES QUE VALLAMOS A UTILIZAR PARA LOS CONJUNTOS
nombres <- c("Juan", "Paco", "Lalo", "Memo", "Paty", "Laura", "Oscar", "Luis", "Ernesto", "Lupita", "Carmen", "Eduardo", "Ana", "Luisa", "Maria", "Rosario", "Margarita", "Margarito", "Sandra", "Sandro", "Rubén", "Gabino", "Patricia", "Salvador", "Romualdo", "Saul", "Raul", "Gerardo", "Antonio", "Yuri", "Aracely", "Jeorgina", "Javier", "Lucy")
PASO 2: ORDENAMOS LOS NOMBRES POR ORDEN ALFABETICO PARA TRABAJARLOS DE UNA MEJOR MANERA
nombres <- sort(nombres)
nombres
##  [1] "Ana"       "Antonio"   "Aracely"   "Carmen"    "Eduardo"   "Ernesto"  
##  [7] "Gabino"    "Gerardo"   "Javier"    "Jeorgina"  "Juan"      "Lalo"     
## [13] "Laura"     "Lucy"      "Luis"      "Luisa"     "Lupita"    "Margarita"
## [19] "Margarito" "Maria"     "Memo"      "Oscar"     "Paco"      "Patricia" 
## [25] "Paty"      "Raul"      "Romualdo"  "Rosario"   "Rubén"     "Salvador" 
## [31] "Sandra"    "Sandro"    "Saul"      "Yuri"
PASO 3: SACAMOS EL NUMERO DE ELEMENTOS DE LA POBLACION TOTAL
n <- length(nombres)
n
## [1] 34
PASO 4: DESIGNAMOS LA SEMILLA 100 PARA TENER LOS MISMO CONJUNTOS ALEATORIOS
OJO: ESTO AVECES PUEDE LLEGAR A VARIAR
set.seed(100)
PASO 5: GENERAMOS LOS PARTICIPANTES DE CADA UNO DE LOS EQUIPOS DEPORTIVOS
Generando conjuntos: 15 en futbol, 10 en basquetbol, 6 en voleybol, 5 atletismo y 2 ajedrez
futbol <- sort(sample(nombres, 15))
basquetbol <- sort(sample(nombres,10))
voleybol <- sort(sample(nombres, 6))
atletismo <- sort(sample(nombres, 5))
ajedrez <- sort(sample(nombres, 2))
PASO 6: VISUALIZAMOS LOS INTEGRANTES DE CADA EQUIPO DE CADA ACTIVIDAD
FUTBOL
futbol
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"  "Rubén"
BASQUETBALL
basquetbol
##  [1] "Antonio"   "Aracely"   "Carmen"    "Gerardo"   "Lalo"      "Margarita"
##  [7] "Margarito" "Paty"      "Sandra"    "Yuri"
VOLEYBOL
voleybol
## [1] "Carmen"   "Gabino"   "Memo"     "Paty"     "Romualdo" "Sandro"
ATLETISMO
atletismo
## [1] "Antonio" "Ernesto" "Juan"    "Luisa"   "Maria"
AJEDREZ
ajedrez
## [1] "Rubén"    "Salvador"

—————————————–

PARTE 2

UNION DE CONJUNTOS

—————————————–

PERSONAS QUE JUEGAN BASQUETBALL O FUTBOL
union(futbol, basquetbol) # Los que juegan o uno u otro
##  [1] "Antonio"   "Carmen"    "Ernesto"   "Gabino"    "Jeorgina"  "Juan"     
##  [7] "Lalo"      "Lucy"      "Oscar"     "Paco"      "Paty"      "Raul"     
## [13] "Romualdo"  "Rosario"   "Rubén"     "Aracely"   "Gerardo"   "Margarita"
## [19] "Margarito" "Sandra"    "Yuri"
PERSONAS QUE JUEGAN FUTBOL O VOLEYBOL
union(futbol, voleybol) # Los que juegan o uno u otro
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"  "Rubén"    "Memo"     "Sandro"
PERSONAS QUE JUEGAN FUTBOL O VAN A ATLETISMO
union(futbol, atletismo) # Los que juegan o uno u otro
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"  "Rubén"    "Luisa"    "Maria"
PERSONAS QUE JUEGAN FUTBOL O AJEDREZ
union(futbol, ajedrez) # Los que juegan o uno u otro
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"  "Rubén"    "Salvador"
PERSONAS QUE JUEGAN BASKETBALL O VOLEYBOL
union(basquetbol, voleybol) # Los que juegan o uno u otro
##  [1] "Antonio"   "Aracely"   "Carmen"    "Gerardo"   "Lalo"      "Margarita"
##  [7] "Margarito" "Paty"      "Sandra"    "Yuri"      "Gabino"    "Memo"     
## [13] "Romualdo"  "Sandro"
PERSONAS QUE VAN A ATLETISMO O JUEGAN AJEDREZ
union(atletismo, ajedrez) # Los que juegan o uno u otro
## [1] "Antonio"  "Ernesto"  "Juan"     "Luisa"    "Maria"    "Rubén"    "Salvador"
PERSONAS QUE VAN A ATLETISMO O JUEGAN VOLEYBOL
union(atletismo, voleybol) # Los que juegan o uno u otro
##  [1] "Antonio"  "Ernesto"  "Juan"     "Luisa"    "Maria"    "Carmen"  
##  [7] "Gabino"   "Memo"     "Paty"     "Romualdo" "Sandro"

—————————————–

SI UNIMOS TODAS LAS DISPLINAS DE LA SIGUIENTE FORMA NOS MOSTRARA EL TOTAL DE PERSONAS EN UNA ACTIVIDAD
jueganfb  <- union (basquetbol, futbol) 
jueganfbv <- union(jueganfb, voleybol)
jueganfbva <- union(jueganfbv, atletismo)
jueganfbvaj <- union(jueganfbva, ajedrez)

# Los vemos ordenados
sort(jueganfbvaj)
##  [1] "Antonio"   "Aracely"   "Carmen"    "Ernesto"   "Gabino"    "Gerardo"  
##  [7] "Jeorgina"  "Juan"      "Lalo"      "Lucy"      "Luisa"     "Margarita"
## [13] "Margarito" "Maria"     "Memo"      "Oscar"     "Paco"      "Paty"     
## [19] "Raul"      "Romualdo"  "Rosario"   "Rubén"     "Salvador"  "Sandra"   
## [25] "Sandro"    "Yuri"

—————————————–

PARTE 3

INTERSECCION DE CONJUNTOS

—————————————–

Resuelve el dilema de quienes están en un un equipo y que también están en otro.
NOTA: SI DICE: character(0) ES PORQUE NO HAY PERSONAS QUE COINCIDAN ENTRE ACTIVIDADES
LAS PERSONAS QUE ESTAN EN FUTBOL Y EN BASQUETBOL AL MISMO TIEMPO
intersect(futbol, basquetbol) # Los que juegan y que tambien juegan en otro equipo
## [1] "Antonio" "Carmen"  "Lalo"    "Paty"
LAS PERSONAS QUE ESTAN EN FUTBOL Y EN VOLEYBOL AL MISMO TIEMPO
intersect(futbol, voleybol) # Los que juegan y que tambien juegan en otro equipo
## [1] "Carmen"   "Gabino"   "Paty"     "Romualdo"
LAS PERSONAS QUE ESTAN EN FUTBOL Y EN ATLETISMO AL MISMO TIEMPO
intersect(futbol, atletismo) # Los que juegan y que tambien juegan en otro equipo
## [1] "Antonio" "Ernesto" "Juan"
LAS PERSONAS QUE ESTAN EN FUTBOL Y EN AJEDREZ AL MISMO TIEMPO
intersect(futbol, ajedrez) # Los que juegan y que tambien juegan en otro equipo
## [1] "Rubén"
LAS PERSONAS QUE ESTAN EN AJEDREZ Y EN BASQUETBOL AL MISMO TIEMPO
intersect(ajedrez, basquetbol) # Los que juegan y que tambien juegan en otro equipo
## character(0)
LAS PERSONAS QUE ESTAN EN NASQUETBOL Y EN VOLEYBOL AL MISMO TIEMPO
intersect(voleybol, basquetbol) # Los que juegan y que tambien juegan en otro equipo
## [1] "Carmen" "Paty"
LAS PERSONAS QUE ESTAN EN BASQUETBOL Y EN ATLETISMO AL MISMO TIEMPO
intersect(basquetbol, atletismo) # Los que juegan y que tambien juegan en otro equipo
## [1] "Antonio"
LAS PERSONAS QUE ESTAN EN ATLETISMO Y EN AJEDREZ AL MISMO TIEMPO
intersect(atletismo, ajedrez) # Los que juegan y que tambien juegan en otro equipo
## character(0)

—————————————–

PARTE 4

DIFERENCIA DE CONJUNTOS

—————————————–

Resuelve quienes juegan un deporte y no juegan otro

LAS PERSONAS QUE ESTAN EN FUTBOL Y NO EN BASQUETBOL AL MISMO TIEMPO
setdiff(futbol, basquetbol) # Los que juegan y que NO juegan en otro equipo
##  [1] "Ernesto"  "Gabino"   "Jeorgina" "Juan"     "Lucy"     "Oscar"   
##  [7] "Paco"     "Raul"     "Romualdo" "Rosario"  "Rubén"
LAS PERSONAS QUE ESTAN EN FUTBOL Y NO EN VOLEYBOL AL MISMO TIEMPO
setdiff(futbol, voleybol) # Los que juegan y que NO juegan en otro equipo
##  [1] "Antonio"  "Ernesto"  "Jeorgina" "Juan"     "Lalo"     "Lucy"    
##  [7] "Oscar"    "Paco"     "Raul"     "Rosario"  "Rubén"
LAS PERSONAS QUE ESTAN EN FUTBOL Y NO EN ATLETISMO AL MISMO TIEMPO
setdiff(futbol, atletismo) # Los que juegan y que NO juegan en otro equipo
##  [1] "Carmen"   "Gabino"   "Jeorgina" "Lalo"     "Lucy"     "Oscar"   
##  [7] "Paco"     "Paty"     "Raul"     "Romualdo" "Rosario"  "Rubén"
LAS PERSONAS QUE ESTAN EN FUTBOL Y NO EN AJEDREZ AL MISMO TIEMPO
setdiff(futbol, ajedrez) # Los que juegan y que NO juegan en otro equipo
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"
LAS PERSONAS QUE ESTAN EN AJEDREZ Y NO EN BASQUETBOL AL MISMO TIEMPO
setdiff(ajedrez, basquetbol) # Los que juegan y que NO juegan en otro equipo
## [1] "Rubén"    "Salvador"
LAS PERSONAS QUE ESTAN EN VOLEYBOL Y NO EN VOLEYBOL AL MISMO TIEMPO
setdiff(voleybol, basquetbol)  # Los que juegan y que NO juegan en otro equipo
## [1] "Gabino"   "Memo"     "Romualdo" "Sandro"
LAS PERSONAS QUE ESTAN EN BASQUETBOL Y NO EN ATLETISMO AL MISMO TIEMPO
setdiff(basquetbol, atletismo) # Los que juegan y que NO juegan en otro equipo
## [1] "Aracely"   "Carmen"    "Gerardo"   "Lalo"      "Margarita" "Margarito"
## [7] "Paty"      "Sandra"    "Yuri"
LAS PERSONAS QUE ESTAN EN ATLETISMO Y NO EN AJEDREZ AL MISMO TIEMPO
setdiff(atletismo, ajedrez) # Los que juegan y que NO juegan en otro equipo
## [1] "Antonio" "Ernesto" "Juan"    "Luisa"   "Maria"

—————————————–

PARTE 5

QUIENES NO JUEGAN NADA

—————————————–

Reutilizamos la variable jueganfbvaj y la asignamos a la variable sijuegan para hacerlo más entendible y páctico

# Reutilizamos los que si juegan
jueganfbvaj
##  [1] "Antonio"   "Aracely"   "Carmen"    "Gerardo"   "Lalo"      "Margarita"
##  [7] "Margarito" "Paty"      "Sandra"    "Yuri"      "Ernesto"   "Gabino"   
## [13] "Jeorgina"  "Juan"      "Lucy"      "Oscar"     "Paco"      "Raul"     
## [19] "Romualdo"  "Rosario"   "Rubén"     "Memo"      "Sandro"    "Luisa"    
## [25] "Maria"     "Salvador"
CAMBIAMOS EL NOMBRE DE LA VARIABLE PARA MAYOR FACILIDAD Y DECIMOS: LOS QUE ESTEN EN EL CONJUNTO DE NOMBRES
Y LOS QUE NO ESTEN EN SI JUEGA
sijuegan <- jueganfbvaj

nojuegannada <- sort(setdiff(nombres, sijuegan ))  # sort ya para verlo ordenado
nojuegannada
## [1] "Ana"      "Eduardo"  "Javier"   "Laura"    "Luis"     "Lupita"   "Patricia"
## [8] "Saul"
LAS PERSONAS QUE SI JUEGAN SON:
length(sijuegan)
## [1] 26
LAS PERSONAS QUE NO JUEGAN SON:
length(nojuegannada)
## [1] 8

—————————————–

PARTE 6

PROBABILIDADES

—————————————–

Que porcentaje SI JUEGA ALGO Y QUE porcentaje NO JUEGA algún deporte
Notas:
Para cuestiones de cálculos nos interesa usar las proporciones
Para efectos de visualización de resultados bastaría con porcentajes redondedo

—————————————–

PERSONAS QUE SI JUEGAN:
¿Qué probabilidad existe de elejir ALEATORIAEMNTE a un nombre y JUEGUE ALGÚN DEPORTE?

—————————————–

propor.SIJUEGA <- length(sijuegan) / n
propor.SIJUEGA
## [1] 0.7647059
# En porcentaje
propor.SIJUEGA * 100
## [1] 76.47059
# redondeado
round(propor.SIJUEGA * 100)
## [1] 76

—————————————–

PERSONAS QUE NO JUEGAN:
¿Qué probabilidad existe de elejir ALEATORIAEMNTE a un nombre y NO JUEGUE ALGÚN DEPORTE?

—————————————–

propor.NOJUEGA <- length(nojuegannada) / n
propor.NOJUEGA
## [1] 0.2352941
# En porcentaje
propor.NOJUEGA * 100 
## [1] 23.52941
# redondeado
round(propor.NOJUEGA * 100)
## [1] 24

—————————————–

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE FUTBOL?

—————————————–

propor.fut <- length(futbol) / n
propor.fut*100
## [1] 44.11765

—————————————–

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE VOLEYBOL?

—————————————–

propor.fut <- length(voleybol) / n
propor.fut*100
## [1] 17.64706

—————————————–

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE BASQUETBOL?

—————————————–

propor.fut <- length(basquetbol) / n
propor.fut*100
## [1] 29.41176

—————————————–

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE ATLETISMO?

—————————————–

propor.fut <- length(atletismo) / n
propor.fut*100
## [1] 14.70588

—————————————–

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE AJEDREZ?

—————————————–

propor.fut <- length(ajedrez) / n
propor.fut*100
## [1] 5.882353

—————————————–

PARTE 7

Creando un data frame con los nombres y la disciplina en donde participan. Ordenados

—————————————–

datos <- data.frame(nombres, futbol=nombres %in% futbol, basquetbol=nombres %in% basquetbol, voleybol=nombres %in% voleybol, atletismo=nombres %in% atletismo, ajedrez=nombres %in% ajedrez)

datos
##      nombres futbol basquetbol voleybol atletismo ajedrez
## 1        Ana  FALSE      FALSE    FALSE     FALSE   FALSE
## 2    Antonio   TRUE       TRUE    FALSE      TRUE   FALSE
## 3    Aracely  FALSE       TRUE    FALSE     FALSE   FALSE
## 4     Carmen   TRUE       TRUE     TRUE     FALSE   FALSE
## 5    Eduardo  FALSE      FALSE    FALSE     FALSE   FALSE
## 6    Ernesto   TRUE      FALSE    FALSE      TRUE   FALSE
## 7     Gabino   TRUE      FALSE     TRUE     FALSE   FALSE
## 8    Gerardo  FALSE       TRUE    FALSE     FALSE   FALSE
## 9     Javier  FALSE      FALSE    FALSE     FALSE   FALSE
## 10  Jeorgina   TRUE      FALSE    FALSE     FALSE   FALSE
## 11      Juan   TRUE      FALSE    FALSE      TRUE   FALSE
## 12      Lalo   TRUE       TRUE    FALSE     FALSE   FALSE
## 13     Laura  FALSE      FALSE    FALSE     FALSE   FALSE
## 14      Lucy   TRUE      FALSE    FALSE     FALSE   FALSE
## 15      Luis  FALSE      FALSE    FALSE     FALSE   FALSE
## 16     Luisa  FALSE      FALSE    FALSE      TRUE   FALSE
## 17    Lupita  FALSE      FALSE    FALSE     FALSE   FALSE
## 18 Margarita  FALSE       TRUE    FALSE     FALSE   FALSE
## 19 Margarito  FALSE       TRUE    FALSE     FALSE   FALSE
## 20     Maria  FALSE      FALSE    FALSE      TRUE   FALSE
## 21      Memo  FALSE      FALSE     TRUE     FALSE   FALSE
## 22     Oscar   TRUE      FALSE    FALSE     FALSE   FALSE
## 23      Paco   TRUE      FALSE    FALSE     FALSE   FALSE
## 24  Patricia  FALSE      FALSE    FALSE     FALSE   FALSE
## 25      Paty   TRUE       TRUE     TRUE     FALSE   FALSE
## 26      Raul   TRUE      FALSE    FALSE     FALSE   FALSE
## 27  Romualdo   TRUE      FALSE     TRUE     FALSE   FALSE
## 28   Rosario   TRUE      FALSE    FALSE     FALSE   FALSE
## 29     Rubén   TRUE      FALSE    FALSE     FALSE    TRUE
## 30  Salvador  FALSE      FALSE    FALSE     FALSE    TRUE
## 31    Sandra  FALSE       TRUE    FALSE     FALSE   FALSE
## 32    Sandro  FALSE      FALSE     TRUE     FALSE   FALSE
## 33      Saul  FALSE      FALSE    FALSE     FALSE   FALSE
## 34      Yuri  FALSE       TRUE    FALSE     FALSE   FALSE

—————————————–

PARTE 8

CONCLUSIONES

—————————————–

Con lo que acabamos de aprender podemos trabajar con los conjuntos de una forma mas rapida y sencilla para poder sacar probabilidades, siendo, el manejo de los conjuntos la base para poder en base al manejo de conjuntos poder sacar probabilidades estadisticas sobre ciertas cosas para poder tomar decisiones utiles.

Analizando este cuestionamiento en particular podemos darnos cuenta de la cantidad de alumnos interesados en cierta actividad deportiva, por lo que, podemos determinar en base a ello donde podemos aumentar la demanda o el cupo para cierta actividad o donde podemos intentar fomentar la actividad, tambien, al realizar el ejercicio podemos darnos cuenta de aquellas personas que estan en una o mas actividades pero y las que ¿no?, pues al igual que sabemos cuantas personas estan en una actividad sabemos cuantas personas no estna en una actividad, por lo que, podemos idear planes para que es numero de personas quiera entrar en alguna actividad complementaria.

Lo mas importante que podemos rescatar de la practica es que podemos manejar la informacion por conjuntos en base a probabilidades para intetar predecir un restulado en el caso de que manejemos conjuntos aleatorios pero en el caso de que manejemos conjuntos fijos, podemos darnos cuenta del panorama general de un pequeño conjunto en especial para de alli poder analizar la informacion facilmente.