Generar nombres:

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

Ordenar nombres:

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"

Numero de elementos:

n = length(nombres)
n
## [1] 34

Semilla:

set.seed(100)

Generando equipos deportivos con estos integrantes:

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

Integrantes de equipos:

futbol
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"  "Rubén"
basquetbol
##  [1] "Antonio"   "Aracely"   "Carmen"    "Gerardo"   "Lalo"      "Margarita"
##  [7] "Margarito" "Paty"      "Sandra"    "Yuri"
voleybol  
## [1] "Carmen"   "Gabino"   "Memo"     "Paty"     "Romualdo" "Sandro"
atletismo
## [1] "Antonio" "Ernesto" "Juan"    "Luisa"   "Maria"
ajedrez
## [1] "Rubén"    "Salvador"

Union de conjuntos: Furbol y cada uno:

union(futbol, basquetbol)
##  [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"
union(futbol, voleybol)
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"  "Rubén"    "Memo"     "Sandro"
union(futbol, atletismo)
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"  "Rubén"    "Luisa"    "Maria"
union(futbol, ajedrez)
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"  "Rubén"    "Salvador"

Otras uniones:

union(basquetbol, voleybol)
##  [1] "Antonio"   "Aracely"   "Carmen"    "Gerardo"   "Lalo"      "Margarita"
##  [7] "Margarito" "Paty"      "Sandra"    "Yuri"      "Gabino"    "Memo"     
## [13] "Romualdo"  "Sandro"
union(atletismo, ajedrez)
## [1] "Antonio"  "Ernesto"  "Juan"     "Luisa"    "Maria"    "Rubén"    "Salvador"
union(atletismo, voleybol)
##  [1] "Antonio"  "Ernesto"  "Juan"     "Luisa"    "Maria"    "Carmen"  
##  [7] "Gabino"   "Memo"     "Paty"     "Romualdo" "Sandro"

Union de todo:

u= union(futbol, basquetbol)
u= union(u, voleybol)
u= union(u, atletismo)
u= union(u, ajedrez)
sort(u)
##  [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"

Intersecciones futbol y cada uno:

intersect(futbol, basquetbol)
## [1] "Antonio" "Carmen"  "Lalo"    "Paty"
intersect(futbol,voleybol)
## [1] "Carmen"   "Gabino"   "Paty"     "Romualdo"
intersect(futbol, atletismo)
## [1] "Antonio" "Ernesto" "Juan"
intersect(futbol, ajedrez)
## [1] "Rubén"

Otras intersecciones:

intersect(ajedrez,basquetbol)
## character(0)
intersect(voleybol,basquetbol)
## [1] "Carmen" "Paty"
intersect(basquetbol,atletismo)
## [1] "Antonio"
intersect(atletismo,ajedrez)
## character(0)

Diferencia de conjuntos intersecciones de futbol

setdiff(futbol,basquetbol)
##  [1] "Ernesto"  "Gabino"   "Jeorgina" "Juan"     "Lucy"     "Oscar"   
##  [7] "Paco"     "Raul"     "Romualdo" "Rosario"  "Rubén"
setdiff(futbol,voleybol)
##  [1] "Antonio"  "Ernesto"  "Jeorgina" "Juan"     "Lalo"     "Lucy"    
##  [7] "Oscar"    "Paco"     "Raul"     "Rosario"  "Rubén"
setdiff(futbol,atletismo)
##  [1] "Carmen"   "Gabino"   "Jeorgina" "Lalo"     "Lucy"     "Oscar"   
##  [7] "Paco"     "Paty"     "Raul"     "Romualdo" "Rosario"  "Rubén"
setdiff(futbol, ajedrez)
##  [1] "Antonio"  "Carmen"   "Ernesto"  "Gabino"   "Jeorgina" "Juan"    
##  [7] "Lalo"     "Lucy"     "Oscar"    "Paco"     "Paty"     "Raul"    
## [13] "Romualdo" "Rosario"

Otras diferencias:

setdiff(ajedrez,basquetbol)
## [1] "Rubén"    "Salvador"
setdiff(basquetbol,atletismo)
## [1] "Aracely"   "Carmen"    "Gerardo"   "Lalo"      "Margarita" "Margarito"
## [7] "Paty"      "Sandra"    "Yuri"
setdiff(atletismo,ajedrez)
## [1] "Antonio" "Ernesto" "Juan"    "Luisa"   "Maria"

Quienes no juegan nada:

nj= setdiff(nombres, u)
nj
## [1] "Ana"      "Eduardo"  "Javier"   "Laura"    "Luis"     "Lupita"   "Patricia"
## [8] "Saul"

Probabilidades de que no jueguen:

print("Probabilidad de que no juegue")
## [1] "Probabilidad de que no juegue"
length(nj)/ length(nombres)
## [1] 0.2352941
print("Probabilidad en porcentaje de que no juegue")
## [1] "Probabilidad en porcentaje de que no juegue"
length(nj)/ length(nombres) * 100
## [1] 23.52941

De que juegue algo:

print("Probabilidad de que juegue")
## [1] "Probabilidad de que juegue"
length(u)/ length(nombres)
## [1] 0.7647059
print("Probabilidad en porcentaje de que juegue")
## [1] "Probabilidad en porcentaje de que juegue"
length(u)/ length(nombres) * 100
## [1] 76.47059

De que juegue futbol:

print("Probabilidad de que juegue")
## [1] "Probabilidad de que juegue"
length(futbol)/ length(nombres)
## [1] 0.4411765
print("Probabilidad en porcentaje de que juegue")
## [1] "Probabilidad en porcentaje de que juegue"
length(futbol)/ length(nombres) * 100
## [1] 44.11765

De que juegue basquetbol:

print("Probabilidad de que juegue")
## [1] "Probabilidad de que juegue"
length(basquetbol)/ length(nombres)
## [1] 0.2941176
print("Probabilidad en porcentaje de que juegue")
## [1] "Probabilidad en porcentaje de que juegue"
length(basquetbol)/ length(nombres) * 100
## [1] 29.41176

De que juegue voleybol:

print("Probabilidad de que juegue")
## [1] "Probabilidad de que juegue"
length(voleybol)/ length(nombres)
## [1] 0.1764706
print("Probabilidad en porcentaje de que juegue")
## [1] "Probabilidad en porcentaje de que juegue"
length(voleybol)/ length(nombres) * 100
## [1] 17.64706

De que juegue atletismo:

print("Probabilidad de que juegue")
## [1] "Probabilidad de que juegue"
length(atletismo)/ length(nombres)
## [1] 0.1470588
print("Probabilidad en porcentaje de que juegue")
## [1] "Probabilidad en porcentaje de que juegue"
length(atletismo)/ length(nombres) * 100
## [1] 14.70588

De que juegue ajedrez:

print("Probabilidad de que juegue")
## [1] "Probabilidad de que juegue"
length(ajedrez)/ length(nombres)
## [1] 0.05882353
print("Probabilidad en porcentaje de que juegue")
## [1] "Probabilidad en porcentaje de que juegue"
length(ajedrez)/ length(nombres) * 100
## [1] 5.882353

Data frame:

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

En la práctica logré repasar contenidos que ya había estudiado en el bachillerato, así como en la materia de matemáticas discretas, la utilización de la herramienta rstudio me permitierón facilitar un proceso que anteriormente me parecería tedioso y lento. Los resultados obtenidos parecen diferir de los resultados mostrados en l práctica de ejemplo debido a que probablemente la arquitectura del procesador de la computadora del profesor es diferente a la de mi computadora, de todas maneras, resulta interesante ver lo fácil que es obtener resultados como estos a partir de un conjunto de datos e imaginar todas sus posibles aplicaciones