nombres

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

los conjuntos inicializar

basquetbol=B=c("KEVIN","OSCAR","CHYANNE","ALEXA","SANDY")
voleybol=V=c("MARITZA","ALEXA","FRANCISCO","ALEJANDRA","OSCAR","SANDY")
futbol=F=c("OSWALDO","ALEXIA","MARY","LUCY","KEVIN","PATY","NAYELI","FARID","TAI","ALEJANDRO")
teatro=T=c("ALEJANDRO","TAI","MARTIN","ALEXIA")
B
## [1] "KEVIN"   "OSCAR"   "CHYANNE" "ALEXA"   "SANDY"
V
## [1] "MARITZA"   "ALEXA"     "FRANCISCO" "ALEJANDRA" "OSCAR"     "SANDY"

¿CUAL ES LA PROBABILIDAD DE BASQUETBOL UNION CON VOLEYBOL?

¿CUAL ES LA PROBABILIDAD DE ENCONTRAR PERSONAS QUE JUEGUEN BASQUETBOL O VOLEYBOL

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

¿CUAL ES LA PROBABILIDAD DE FUTBOL INTERSECCION TEATRO?

¿CUAL ES LA PROBABILIDAD DE ENCONTRAR PERSONAS QUE JUEGUEN FUTBOL Y ADEMAS PRACTIQUEN TEATRO

FIT=union(F,T)
FIT
##  [1] "OSWALDO"   "ALEXIA"    "MARY"      "LUCY"      "KEVIN"     "PATY"     
##  [7] "NAYELI"    "FARID"     "TAI"       "ALEJANDRO" "MARTIN"
pro=round(length(FIT)/n * 100,4)
paste("La probabilidad es:",pro, "%")
## [1] "La probabilidad es: 47.8261 %"

¿CUAL ES LA PROBABILIDAD DE Teatro menos Basquetbol?

¿CUAL ES LA PROBABILIDAD DE ENCONTRAR PERSONAS QUE PRACTIQUEN TEATRO Y NO JUEGUEN BASQUETBOL?

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

###¿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"   "CHYANNE"   "ALEXA"     "MARTIN"   
## [13] "DANIEL"
pro=round(length(F_complemento)/n * 100,4)
paste("La probabilidad es:",pro, "%")
## [1] "La probabilidad es: 56.5217 %"