7. Simulacion estadistica del Ejercicio 2.14(Probabilidad bolas en urna sin reemplazamiento)

Tendremos que utilizar el package prob del R-Project para calcular la probabilidad condicionada

Simulacion:

> library(prob)

> library(combinat)

> X <- c("Roja1","Roja2","Roja3","Roja4","Roja5","Roja6","Negra1","Negra2"
,"Negra3","Negra4")

> S<- urnsamples(X, size = 2, replace =FALSE, ordered = TRUE)

> A<- S

> colnames(A)<-c("Primera Bola","Segunda Bola")

> A
   Primera Bola Segunda Bola
1         Roja1        Roja2
2         Roja2        Roja1
3         Roja1        Roja3
4         Roja3        Roja1
5         Roja1        Roja4
6         Roja4        Roja1
7         Roja1        Roja5
8         Roja5        Roja1
9         Roja1        Roja6
10        Roja6        Roja1
11        Roja1       Negra1
12       Negra1        Roja1
13        Roja1       Negra2
14       Negra2        Roja1
15        Roja1       Negra3
16       Negra3        Roja1
17        Roja1       Negra4
18       Negra4        Roja1
19        Roja2        Roja3
20        Roja3        Roja2
21        Roja2        Roja4
22        Roja4        Roja2
23        Roja2        Roja5
24        Roja5        Roja2
25        Roja2        Roja6
26        Roja6        Roja2
27        Roja2       Negra1
28       Negra1        Roja2
29        Roja2       Negra2
30       Negra2        Roja2
31        Roja2       Negra3
32       Negra3        Roja2
33        Roja2       Negra4
34       Negra4        Roja2
35        Roja3        Roja4
36        Roja4        Roja3
37        Roja3        Roja5
38        Roja5        Roja3

39        Roja3        Roja6
40        Roja6        Roja3
41        Roja3       Negra1
42       Negra1        Roja3
43        Roja3       Negra2
44       Negra2        Roja3
45        Roja3       Negra3
46       Negra3        Roja3
47        Roja3       Negra4
48       Negra4        Roja3
49        Roja4        Roja5
50        Roja5        Roja4
51        Roja4        Roja6
52        Roja6        Roja4
53        Roja4       Negra1
54       Negra1        Roja4
55        Roja4       Negra2
56       Negra2        Roja4
57        Roja4       Negra3
58       Negra3        Roja4
59        Roja4       Negra4
60       Negra4        Roja4
61        Roja5        Roja6
62        Roja6        Roja5
63        Roja5       Negra1
64       Negra1        Roja5
65        Roja5       Negra2
66       Negra2        Roja5
67        Roja5       Negra3
68       Negra3        Roja5
69        Roja5       Negra4
70       Negra4        Roja5
71        Roja6       Negra1
72       Negra1        Roja6
73        Roja6       Negra2
74       Negra2        Roja6