Objetivo

calcular probabiliddes con operaciones de conjuntos

Desarrollo

Declarar conjuntos

V <- c ("Gael", "Emilio", "Daniela", "Marcos", "Sebastian", "Juan", "Paty", "Carlos")
T <- c("Ruben", "Fanny", "Araceli", "Marco", "JUan","Carlos")
B <- c("Gael", "Daniela", "Marco", "Sebastian", "Emilio")
A <- c("Emilo", "Ruben", "Sebastian")
Te <- c("Fanny", "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"   "Marcos"    "Sebastian" "Juan"     
## [7] "Paty"      "Carlos"
## [1] "Ruben"   "Fanny"   "Araceli" "Marco"   "JUan"    "Carlos"
## [1] "Gael"      "Daniela"   "Marco"     "Sebastian" "Emilio"
## [1] "Emilo"     "Ruben"     "Sebastian"
## [1] "Fanny" "Marco" "Oscar" "Luis"  "Lucy"  "Mary"
## [1] "Hugo"    "Roberto" "Yarely"  "Lucy"    "Carlos"

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

S_espacio<-union(union(union(union(union(V,T), B), A), Te), R)
S_espacio 
##  [1] "Gael"      "Emilio"    "Daniela"   "Marcos"    "Sebastian" "Juan"     
##  [7] "Paty"      "Carlos"    "Ruben"     "Fanny"     "Araceli"   "Marco"    
## [13] "JUan"      "Emilo"     "Oscar"     "Luis"      "Lucy"      "Mary"     
## [19] "Hugo"      "Roberto"   "Yarely"
n <- length(S_espacio)

¿Cual es la probabilidad de union voley y Ajedrez

VUA <- union(V,A)
VUA
##  [1] "Gael"      "Emilio"    "Daniela"   "Marcos"    "Sebastian" "Juan"     
##  [7] "Paty"      "Carlos"    "Emilo"     "Ruben"
prob=length(VUA) / n * 100
paste(prob, "%")
## [1] "47.6190476190476 %"

¿Cual es la probabilidad de interseccion Tenis y Rondalla

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

¿Cual es la prbabilidad de Voley menos basquet?

V_menos_B <- setdiff(V, B)
V_menos_B
## [1] "Marcos" "Juan"   "Paty"   "Carlos"
prob=length(V_menos_B) / n * 100
paste(prob, "%")
## [1] "19.047619047619 %"

¿Cual es la prbabilidad de basquet menos voley?

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

¿ cual es la probabiidad del compelemto del teatro?

sigifica . cual es la probabbilidad de elegir una persona que no participa en teatro

T_complemento<-setdiff(S_espacio, T)
T_complemento
##  [1] "Gael"      "Emilio"    "Daniela"   "Marcos"    "Sebastian" "Juan"     
##  [7] "Paty"      "Emilo"     "Oscar"     "Luis"      "Lucy"      "Mary"     
## [13] "Hugo"      "Roberto"   "Yarely"
prob=length(T_complemento) / n * 100 
paste(prob,"%")
## [1] "71.4285714285714 %"