R Markdown

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 generan los nombres que usaremos para esta prueba

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")

Los ordenamos para una mejor observacion

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"

Total de nombres

n <- length(nombres)
n

## [1] 34

Semilla para aleatoriadad en 100 para que se generen los mismos equipos

set.seed(100)

Generamos conjuntos en los equipos

Conjuntos: 10 futbol, 8 basquetbol, 11 voleybol, 7 atletismo y 10 en ajedrez

futbol <- sort(sample(nombres, 10))
basquetbol <- sort(sample(nombres,8))
voleybol <- sort(sample(nombres, 11))
atletismo <- sort(sample(nombres, 7))
ajedrez <- sort(sample(nombres, 10))

Vemos como quedaron los equipos

Futbol

futbol

##  [1] "Carmen"   "Ernesto"  "Jeorgina" "Lalo"     "Lucy"     "Oscar"   
##  [7] "Paco"     "Paty"     "Raul"     "Rubén"

Basquetbol

basquetbol

## [1] "Ernesto"   "Gabino"    "Juan"      "Lalo"      "Margarita" "Paco"     
## [7] "Patricia"  "Saul"

Voleybol

voleybol

##  [1] "Antonio"   "Carmen"    "Gabino"    "Gerardo"   "Luisa"     "Margarita"
##  [7] "Margarito" "Maria"     "Memo"      "Paty"      "Rubén"

Atletismo

atletismo

## [1] "Antonio" "Ernesto" "Juan"    "Laura"   "Luisa"   "Maria"   "Rubén"

Ajedrez

ajedrez

##  [1] "Ana"      "Javier"   "Oscar"    "Paco"     "Romualdo" "Rosario" 
##  [7] "Rubén"    "Salvador" "Sandro"   "Yuri"

Union De Conjuntos

Los elementos de un conjunto agregando los del otro

union(ajedrez, futbol)

##  [1] "Ana"      "Javier"   "Oscar"    "Paco"     "Romualdo" "Rosario" 
##  [7] "Rubén"    "Salvador" "Sandro"   "Yuri"     "Carmen"   "Ernesto" 
## [13] "Jeorgina" "Lalo"     "Lucy"     "Paty"     "Raul"

union(ajedrez, basquetbol)

##  [1] "Ana"       "Javier"    "Oscar"     "Paco"      "Romualdo"  "Rosario"  
##  [7] "Rubén"     "Salvador"  "Sandro"    "Yuri"      "Ernesto"   "Gabino"   
## [13] "Juan"      "Lalo"      "Margarita" "Patricia"  "Saul"

union(ajedrez, voleybol)

##  [1] "Ana"       "Javier"    "Oscar"     "Paco"      "Romualdo"  "Rosario"  
##  [7] "Rubén"     "Salvador"  "Sandro"    "Yuri"      "Antonio"   "Carmen"   
## [13] "Gabino"    "Gerardo"   "Luisa"     "Margarita" "Margarito" "Maria"    
## [19] "Memo"      "Paty"

union(ajedrez, atletismo)

##  [1] "Ana"      "Javier"   "Oscar"    "Paco"     "Romualdo" "Rosario" 
##  [7] "Rubén"    "Salvador" "Sandro"   "Yuri"     "Antonio"  "Ernesto" 
## [13] "Juan"     "Laura"    "Luisa"    "Maria"

union(ajedrez, ajedrez)

##  [1] "Ana"      "Javier"   "Oscar"    "Paco"     "Romualdo" "Rosario" 
##  [7] "Rubén"    "Salvador" "Sandro"   "Yuri"

Otros ejemplos de union de conjuntos

union(futbol, basquetbol)

##  [1] "Carmen"    "Ernesto"   "Jeorgina"  "Lalo"      "Lucy"      "Oscar"    
##  [7] "Paco"      "Paty"      "Raul"      "Rubén"     "Gabino"    "Juan"     
## [13] "Margarita" "Patricia"  "Saul"

union(voleybol, atletismo)

##  [1] "Antonio"   "Carmen"    "Gabino"    "Gerardo"   "Luisa"     "Margarita"
##  [7] "Margarito" "Maria"     "Memo"      "Paty"      "Rubén"     "Ernesto"  
## [13] "Juan"      "Laura"

union(basquetbol, futbol)

##  [1] "Ernesto"   "Gabino"    "Juan"      "Lalo"      "Margarita" "Paco"     
##  [7] "Patricia"  "Saul"      "Carmen"    "Jeorgina"  "Lucy"      "Oscar"    
## [13] "Paty"      "Raul"      "Rubén"

veremos que pasa si unimos todos los elementos

jueganFB <- union(futbol, basquetbol)
jueganFBV <- union(jueganFB, voleybol)
jueganFBVA <- union(jueganFBV, atletismo)
jueganFBVAJ <- union(jueganFBVA, ajedrez)

vemos el resultado

jueganFBVAJ

##  [1] "Carmen"    "Ernesto"   "Jeorgina"  "Lalo"      "Lucy"      "Oscar"    
##  [7] "Paco"      "Paty"      "Raul"      "Rubén"     "Gabino"    "Juan"     
## [13] "Margarita" "Patricia"  "Saul"      "Antonio"   "Gerardo"   "Luisa"    
## [19] "Margarito" "Maria"     "Memo"      "Laura"     "Ana"       "Javier"   
## [25] "Romualdo"  "Rosario"   "Salvador"  "Sandro"    "Yuri"

los ordenamos para una mejor observacion

sort(jueganFBVAJ)

##  [1] "Ana"       "Antonio"   "Carmen"    "Ernesto"   "Gabino"    "Gerardo"  
##  [7] "Javier"    "Jeorgina"  "Juan"      "Lalo"      "Laura"     "Lucy"     
## [13] "Luisa"     "Margarita" "Margarito" "Maria"     "Memo"      "Oscar"    
## [19] "Paco"      "Patricia"  "Paty"      "Raul"      "Romualdo"  "Rosario"  
## [25] "Rubén"     "Salvador"  "Sandro"    "Saul"      "Yuri"

Interseccion de conjuntos

Ahora veremos quienes se encuentran en ambos equipos

intersect(ajedrez, futbol)

## [1] "Oscar" "Paco"  "Rubén"

intersect(ajedrez, basquetbol)

## [1] "Paco"

intersect(ajedrez, voleybol)

## [1] "Rubén"

intersect(ajedrez, atletismo)

## [1] "Rubén"

intersect(ajedrez, ajedrez)

##  [1] "Ana"      "Javier"   "Oscar"    "Paco"     "Romualdo" "Rosario" 
##  [7] "Rubén"    "Salvador" "Sandro"   "Yuri"

Las otras interseciones

intersect(futbol, basquetbol)

## [1] "Ernesto" "Lalo"    "Paco"

intersect(voleybol, atletismo)

## [1] "Antonio" "Luisa"   "Maria"   "Rubén"

intersect(basquetbol, futbol)

## [1] "Ernesto" "Lalo"    "Paco"

Diferencia de conjuntos

Quienes juegan un deporte y no juegan otro

setdiff(ajedrez, futbol)

## [1] "Ana"      "Javier"   "Romualdo" "Rosario"  "Salvador" "Sandro"   "Yuri"

setdiff(ajedrez, basquetbol)

## [1] "Ana"      "Javier"   "Oscar"    "Romualdo" "Rosario"  "Rubén"    "Salvador"
## [8] "Sandro"   "Yuri"

setdiff(ajedrez, voleybol)

## [1] "Ana"      "Javier"   "Oscar"    "Paco"     "Romualdo" "Rosario"  "Salvador"
## [8] "Sandro"   "Yuri"

setdiff(ajedrez, atletismo)

## [1] "Ana"      "Javier"   "Oscar"    "Paco"     "Romualdo" "Rosario"  "Salvador"
## [8] "Sandro"   "Yuri"

setdiff(ajedrez, ajedrez)

## character(0)

Otros ejemplos de union de conjuntos

setdiff(futbol, basquetbol)

## [1] "Carmen"   "Jeorgina" "Lucy"     "Oscar"    "Paty"     "Raul"     "Rubén"

setdiff(voleybol, atletismo)

## [1] "Carmen"    "Gabino"    "Gerardo"   "Margarita" "Margarito" "Memo"     
## [7] "Paty"

setdiff(basquetbol, futbol)

## [1] "Gabino"    "Juan"      "Margarita" "Patricia"  "Saul"

Ahora veremos quienes NO JUEGAN a nada

# para esto usaremos la variable anterior que son los que si juegan y la asignamos a una nueva variable
jueganFBVAJ

##  [1] "Carmen"    "Ernesto"   "Jeorgina"  "Lalo"      "Lucy"      "Oscar"    
##  [7] "Paco"      "Paty"      "Raul"      "Rubén"     "Gabino"    "Juan"     
## [13] "Margarita" "Patricia"  "Saul"      "Antonio"   "Gerardo"   "Luisa"    
## [19] "Margarito" "Maria"     "Memo"      "Laura"     "Ana"       "Javier"   
## [25] "Romualdo"  "Rosario"   "Salvador"  "Sandro"    "Yuri"

sijuegan <- jueganFBVAJ

los que no juegan nada

nojuegannada <- sort(setdiff(nombres, sijuegan))
nojuegannada

## [1] "Aracely" "Eduardo" "Luis"    "Lupita"  "Sandra"

Cuantos si juegan algun deporte

length(sijuegan)

## [1] 29

Cuantos no juegan

length(nojuegannada)

## [1] 5

Proporciones y porcentajes

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

propor.SIJUEGA <- length(sijuegan)/n
propor.SIJUEGA

## [1] 0.8529412

En porcentaje seria

propor.SIJUEGA*100

## [1] 85.29412

#Redondeado
round(propor.SIJUEGA*100)

## [1] 85

propor.NOJUEGA <- length(nojuegannada)/n
propor.NOJUEGA

## [1] 0.1470588

En porcentaje seria

propor.NOJUEGA*100

## [1] 14.70588

#Redondeado
round(propor.NOJUEGA*100)

## [1] 15

Probabilidades

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

propor.JUEGAFUT <- length(futbol)/n
propor.JUEGAFUT

## [1] 0.2941176

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

propor.JUEGABAS <- length(basquetbol)/n
propor.JUEGABAS

## [1] 0.2352941

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

propor.JUEGAVOL <- length(voleybol)/n
propor.JUEGAVOL

## [1] 0.3235294

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

propor.JUEGAATL <- length(atletismo)/n
propor.JUEGAATL

## [1] 0.2058824

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

propor.JUEGAAJE <- length(ajedrez)/n
propor.JUEGAAJE

## [1] 0.2941176

Y por ultimo creamos un DATA FRAME de los nombres y las disciplinas

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

Conclusion

En esta práctica de conjuntos que se llevó acabo usando nombres de personas y de diferentes unos deportes, podemos darnos cuenta del uso de las funciones que RStudio nos provee para realizar de forma más rápida y eficiente el poder conocer lo que en esta práctica hicimos que fue lo siguiente.

Conjuntos: aquí le asignamos a los deportes un número determinado de nuestro conjunto de nombres el cual se le asigno aleatoriamente a cada uno de ellos para posteriormente observar el conjunto de un deporte con otro.

Intersección de conjuntos: aquí fue lo contrario, pudimos observar que nombres se encontraban en un deporte tanto como en el otro

Diferencia de conjuntos: en esta parte nos fue de utilidad para conocer que nombres juegan en un deporte y no juegan en otro.

Después de todo esto nos propusimos el conocer que nombres de nuestro conjunto completo no juegan a ninguno de los deportes o bien que no se encuentran en ninguno de los conjuntos de los deportes, así como también conocer el porcentaje de los que no juegan nada y de los que si juegan.

Y por último nos dimos a la tarea de conocer la probabilidad de escoger un nombre aleatorio y que este perteneciera a uno de los siguientes conjuntos deportivos, de futbol, basquetbol, voleybol, atletismo o ajedrez.

Conjuntos

Jesus Israel Contreras Martínez NumControl: 16040438

27/3/2020

R Markdown

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 generan los nombres que usaremos para esta prueba

Los ordenamos para una mejor observacion

Total de nombres

Semilla para aleatoriadad en 100 para que se generen los mismos equipos

Generamos conjuntos en los equipos

Conjuntos: 10 futbol, 8 basquetbol, 11 voleybol, 7 atletismo y 10 en ajedrez

Vemos como quedaron los equipos

Futbol

Basquetbol

Voleybol

Atletismo

Ajedrez

Union De Conjuntos

Los elementos de un conjunto agregando los del otro

Otros ejemplos de union de conjuntos

veremos que pasa si unimos todos los elementos

vemos el resultado

los ordenamos para una mejor observacion

Interseccion de conjuntos

Ahora veremos quienes se encuentran en ambos equipos

Las otras interseciones

Diferencia de conjuntos

Quienes juegan un deporte y no juegan otro

Otros ejemplos de union de conjuntos

Ahora veremos quienes NO JUEGAN a nada

los que no juegan nada

Cuantos si juegan algun deporte

Cuantos no juegan

Proporciones y porcentajes

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

En porcentaje seria

En porcentaje seria

Probabilidades

Y por ultimo creamos un DATA FRAME de los nombres y las disciplinas

Conclusion

En esta práctica de conjuntos que se llevó acabo usando nombres de personas y de diferentes unos deportes, podemos darnos cuenta del uso de las funciones que RStudio nos provee para realizar de forma más rápida y eficiente el poder conocer lo que en esta práctica hicimos que fue lo siguiente.

Conjuntos: aquí le asignamos a los deportes un número determinado de nuestro conjunto de nombres el cual se le asigno aleatoriamente a cada uno de ellos para posteriormente observar el conjunto de un deporte con otro.

Intersección de conjuntos: aquí fue lo contrario, pudimos observar que nombres se encontraban en un deporte tanto como en el otro

Diferencia de conjuntos: en esta parte nos fue de utilidad para conocer que nombres juegan en un deporte y no juegan en otro.

Después de todo esto nos propusimos el conocer que nombres de nuestro conjunto completo no juegan a ninguno de los deportes o bien que no se encuentran en ninguno de los conjuntos de los deportes, así como también conocer el porcentaje de los que no juegan nada y de los que si juegan.

Y por último nos dimos a la tarea de conocer la probabilidad de escoger un nombre aleatorio y que este perteneciera a uno de los siguientes conjuntos deportivos, de futbol, basquetbol, voleybol, atletismo o ajedrez.