Objetivo

Calcular probabilidades con operaciones con conjuntos

Desarrollo

Declarar conjuntos

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

Mostrar todos los conjuntos

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

Crear todo el espacio muestral con la unión de todos los conjuntos

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"     "fany"      "aracely"   "oscar"    
## [13] "luis"      "lucy"      "mary"      "hugo"      "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"    "ruben"
prob=length(VUA) / n * 100 
paste(prob,"%")
## [1] "50 %"

¿Cuál es la probabilidad de intersección Tenis y Rondalla?

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

¿Cuál 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] "16.6666666666667 %"

¿Cuál 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 %"

¿Cuál es la probabilidad del complemento de teatro?

Sig. Cuál es la 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"      "oscar"    
##  [7] "luis"      "lucy"      "mary"      "hugo"      "roberto"   "yarely"
prob=length(T_complemento) / n * 100 
paste(prob,"%")
## [1] "66.6666666666667 %"