Objetivo

Realizar operaciones de conjunto con

s_espacio=c("NAYELI","ELIUD","FRANCISCO","OSWALDO","ALDO","OLIVER","ANGEL","OSCAR","ALEJANDRO","PATY","LUCY","MARY","GABY","SANDY","MARITZA","CHAYANNE","ALEXA","KEVIN","TAI","ALEXA","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"       "ALEXA"     "FARID"     "MARTIN"    "DANIEL"
n=length(s_espacio)
n
## [1] 23

Los conjuntos,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"

¿Cual es la probabilidad de basquetbol union voleibol?

¿Cual es la probabilidad de encontrar personas que jueguen basquet o voleibol?

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

¿Cual es la probabilidad de futbol intercepcion con teatrol?

¿Cual es la probabilidad de encontrar personas que jueguen futbol y ademas practiquen teatro?

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

¿Cual es la probabilidad de TEATRO menos BASQUETBOL?

¿Cual es la probabilidad de encontrar personas que PRACTIQUEN TEATRO y NO JUEQUEN BASQUETBOL?

T_menosB=setdiff(T,B)
T_menosB
## [1] "ALEJANDRO" "TAI"       "MARTIN"    "ALEXIA"
pro=length(T_menosB)/n*100
paste("La probabilidad es:",pro)
## [1] "La probabilidad es: 17.3913043478261"

¿Cual es la probabilidad DE COMPLEMENTO DE FUTBOL?

¿Cual es la probabilidad de encontrar personas que NO JUEGUEN FUTBOL?

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=length(F_complemento)/n*100
paste("La probabilidad es:",pro)
## [1] "La probabilidad es: 56.5217391304348"