Operaciones 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 conjuntos, incializar:

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

¿Cuál es la probabilidad de Basquetbol union con Voleibol?

¿Cuál es la probabilidad de encontrar personas que juegen basquetvol o boleibol?

BUV=union(B,V)
BUV

## [1] "KEVIN"     "OSCAR"     "CHAYANNE"  "ALEXA"     "SANDY"     "MARITZA"  
## [7] "FRANCISCO" "ALEJANDRO"

pro=round(length(BUV)/n * 100,4)
paste("La probabilida es",pro,"%")

## [1] "La probabilida es 34.7826 %"

¿Cual es la probabilidad de futbol interseccion con teatro?

¿Cuál es la probabilidad de encontrar personas que juegen futbol y además practiqeun teatro?

FIT=intersect(F,T)
FIT

## [1] "ALEXIA"    "TAI"       "ALEJANDRO"

pro=round(length(FIT)/n * 100,4)
paste("La probabilida es",pro,"%")

## [1] "La probabilida es 13.0435 %"

¿Cual es la probabilidad de teatro diferencia basquetbol?

¿Cuál es la probabilidad de encontrar personas que jueguen futbol y ademas practiquen teatro?

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 probabilida es",pro,"%")

## [1] "La probabilida es 17.3913 %"

¿Cual es la probabilidad de complemento de futbol?

¿Cuál es la probabilidad de enocntrar personas que no jueguen futbol?

Futbol_Complemento=setdiff(s_espacio,F)
Futbol_Complemento

##  [1] "ELIUD"     "FRANCISCO" "ALDO"      "OLIVER"    "ANGEL"     "OSCAR"    
##  [7] "GABY"      "SANDY"     "MARITZA"   "CHAYANNE"  "ALEXA"     "MARTIN"   
## [13] "DANIEL"

pro=round(length(Futbol_Complemento)/n * 100,4)
paste("La probabilida es",pro,"%")

## [1] "La probabilida es 56.5217 %"