Operaciones de conjunto prueba

Objetivo

Realizar operacopnes de conjunto con

s_espacio=c('NAYELI', 'ELIUD', 'FRANCISCO', 'OSWALDO', 'ALDO', 'OLIVER', 'ANGEL'
            ,'OSCAR', 'ALEJANDRO', 'PARY', '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" "PARY"      "LUCY"      "MARY"     
## [13] "GABY"      "SANDY"     "MARITZA"   "CHAYANNE"  "ALEXA"     "KEVIN"    
## [19] "TAI"       "ALEXIA"    "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 con voleibol?

Cual es la probabilidad de encontrar personas que juegen basquet o veisbol?

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

Cual es la probabilidad de futbol interceccion con teatro?

Cual es la probabilidad de encontrar personas que juegan futbol y ademas 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 %"

Cual es la probabilidad de teatro menos basquetbol?

cual es la probabilidad

T_menos_B=setdiff(1,B)
pro=round(length(T_menos_B) /n * 100, 4)
paste("La probabilidad es: ",pro, "%")

## [1] "La probabilidad es:  4.3478 %"

T_menos_B

## [1] 1

Cual es la probabilidad del complemento de futbol?

cual es la probabilidad de encontrar personas que no juegen futbol?

f_complemento=setdiff(s_espacio,F)
f_complemento

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

pro=round(length(f_complemento)/n * 100,4)
paste("La probabilidad es: ",pro, '%')

## [1] "La probabilidad es:  60.8696 %"