Objetivo

Realizar operacionss de conjuntos

s_espacio=c('NAYELI','ELIUD','FRANCISCO','OSWALDO','ALDO','OLIVER','ANGEL','OSCAR','ALEJANDRO','PATY','LUCY','MARY','GABY','SANDY','MARITZA','CHAYANNE','ALEXA','KEVIN','TAI','ALEXIA','FARID','MARTIN','DANIEL')
s_espacio
##  [1] "NAYELI"    "ELIUD"     "FRANCISCO" "OSWALDO"   "ALDO"      "OLIVER"   
##  [7] "ANGEL"     "OSCAR"     "ALEJANDRO" "PATY"      "LUCY"      "MARY"     
## [13] "GABY"      "SANDY"     "MARITZA"   "CHAYANNE"  "ALEXA"     "KEVIN"    
## [19] "TAI"       "ALEXIA"    "FARID"     "MARTIN"    "DANIEL"
n=length(s_espacio)
n
## [1] 23

Los conjutnos inicializar

B=c('KEVIN','OSCAR','CHAYANNE','ALEXA','SANDY')
V=c('MARITZA','ALEXA','FRANCISCO','ALEJANDRO','OSCAR','SANDY')
F=c('OSWALDO','ALEXIA','MARY','LUCY','KEVIN','PATY','NAYELI','FARID','TAI','ALEJANDRO')
T=c('ALEJANDRO','TAI','MARTIN','ALEXIA')
B
## [1] "KEVIN"    "OSCAR"    "CHAYANNE" "ALEXA"    "SANDY"
V
## [1] "MARITZA"   "ALEXA"     "FRANCISCO" "ALEJANDRO" "OSCAR"     "SANDY"
F
##  [1] "OSWALDO"   "ALEXIA"    "MARY"      "LUCY"      "KEVIN"     "PATY"     
##  [7] "NAYELI"    "FARID"     "TAI"       "ALEJANDRO"
T
## [1] "ALEJANDRO" "TAI"       "MARTIN"    "ALEXIA"

¿CUÁL ES LA PROBABILIDAD DE BASQUETBOL UNIÓN CON VOLEIBOL?

¿Cuál es la probabilidad de encontrar personas que jueguen Basquet o Veleibol?

BUV=union(B,V)
BUV
## [1] "KEVIN"     "OSCAR"     "CHAYANNE"  "ALEXA"     "SANDY"     "MARITZA"  
## [7] "FRANCISCO" "ALEJANDRO"
pro=round(length(BUV) /n*100,4)
paste("La probabilidad es: ",pro, '%')
## [1] "La probabilidad es:  34.7826 %"

¿CUÁL ES LA PROBABILIDAD DE FÚTBOL INTERSECCIÓN CON TEATRO?

¿Cuál es la probabilidad de encontrar personas que jueguen Fútbol y además practiquen Teatro?

FIT=intersect(F,T)
FIT
## [1] "ALEXIA"    "TAI"       "ALEJANDRO"
pro=round(length(FIT)/n * 100, 4)
paste("La probabilidad es:",pro, '%')
## [1] "La probabilidad es: 13.0435 %"

¿CUÁL ES LA PROBABILIDAD DE TEATRO MENOS BASQUETBOL?

¿Cuál es la probabilidad de encontrar personas que practiquen Teatro y no jueguen Basquetbol?

T_menos_B=setdiff(T,B)
pro=round(length(T_menos_B)/n * 100, 4)
paste("La probabilidad es:",pro, '%')
## [1] "La probabilidad es: 17.3913 %"
T_menos_B
## [1] "ALEJANDRO" "TAI"       "MARTIN"    "ALEXIA"

¿CUÁL ES LA PROBABILIDAD DEL COMPLEMENTO DE FÚTBOL?

¿Cual es la probabilidad de encontrar personas que NO JUEGUEN Fútbol?

f_complemento=setdiff(s_espacio,F)
f_complemento
##  [1] "ELIUD"     "FRANCISCO" "ALDO"      "OLIVER"    "ANGEL"     "OSCAR"    
##  [7] "GABY"      "SANDY"     "MARITZA"   "CHAYANNE"  "ALEXA"     "MARTIN"   
## [13] "DANIEL"
pro=round(length(f_complemento)/n * 100, 4)
paste("La probabilidad es:",pro, '%')
## [1] "La probabilidad es: 56.5217 %"