Objetivo

Calcular probabilidades con conjuntos

Desarrollo

Declarar

V= c("gael", "emilio", "daniela", "marco", "sebastian", "juan", "paty", "carlos")
T= c("ruben", "fani", "aracely", "marco", "juan", "carlos")
B= c("gael", "daniela", "marco", "sebastian", "emilio")
A= c("emilio", "rueben", "sebastian")
Te= c("fany", "marco", "oscar", "luis", "lucy", "mary")
R= c("hugo", "roberto", "yarely", "lucy", "carlos")

Mostar todos los conjuntos

V; T; B; A; Te; R
## [1] "gael"      "emilio"    "daniela"   "marco"     "sebastian" "juan"     
## [7] "paty"      "carlos"
## [1] "ruben"   "fani"    "aracely" "marco"   "juan"    "carlos"
## [1] "gael"      "daniela"   "marco"     "sebastian" "emilio"
## [1] "emilio"    "rueben"    "sebastian"
## [1] "fany"  "marco" "oscar" "luis"  "lucy"  "mary"
## [1] "hugo"    "roberto" "yarely"  "lucy"    "carlos"

Crear todo el espacio muestral con la union de todos los ocnjuntos

S_espacio<-union(union(union(union(union(V,T), B), A), Te), R)
S_espacio 
##  [1] "gael"      "emilio"    "daniela"   "marco"     "sebastian" "juan"     
##  [7] "paty"      "carlos"    "ruben"     "fani"      "aracely"   "rueben"   
## [13] "fany"      "oscar"     "luis"      "lucy"      "mary"      "hugo"     
## [19] "roberto"   "yarely"
n=length(S_espacio)

¿Cuál es la probabilidad de unión Voley y Ajedrez?

VUA<-union(V,A)
VUA
## [1] "gael"      "emilio"    "daniela"   "marco"     "sebastian" "juan"     
## [7] "paty"      "carlos"    "rueben"
prob=length(VUA) / n * 100 
paste(prob,"%")
## [1] "45 %"

¿Cual es la probabilidad de interseccion tenis y rondalla?

TeIR <- intersect(Te, R)
TeIR
## [1] "lucy"
prob <- length(TeIR) / n * 100
paste(prob, "%")
## [1] "5 %"

¿Cuale es la probabilidad de voley menos basquet

V_menos_B <- setdiff(V, B) 
V_menos_B
## [1] "juan"   "paty"   "carlos"
prob=length(V_menos_B) / n * 100
paste(prob, "%")
## [1] "15 %"

¿Cuale es la probabilidad de Basquet menos Voley

B_menos_V <- setdiff(B, V) 
B_menos_V
## character(0)
prob=length(B_menos_V) / n * 100
paste(prob, "%")
## [1] "0 %"

¿Cual es la probabilidad del complemento de teatro

Cual es al probabilidad de elegir a una persona que no participa en teatro

T_complemento <- setdiff(S_espacio, T) 
T_complemento
##  [1] "gael"      "emilio"    "daniela"   "sebastian" "paty"      "rueben"   
##  [7] "fany"      "oscar"     "luis"      "lucy"      "mary"      "hugo"     
## [13] "roberto"   "yarely"
prob=length(T_complemento) / n * 100
paste(prob, "%")
## [1] "70 %"