Caso. Dos bolsitas con bolitas rojas y negras
Se tienen dos buzones. El Buzón 1 con 3 bolitas negras y 2 rojas. El Buzón 2, con 4 negras y 3 rojas. El experimento aleatorio, consiste en sacar una bolita del primer buzón e introducirla en el segundo, para después extraer una bolita de este último buzón y ahí preguntar probabilidades de ocurrencia. El hecho de sacar una bolita se le llama evento, cuya probabilidad es siempre diferente de cero. (El experimento tiene como condición, siempre sacar una bolita)
1.¿Cuál es la probabilidad de que en el segundo evento se obtenga una bolita roja siendo que en la primera salió una roja?

Evento 1

Suceso N: Sacar una bolita roja, probabilidad (1/3)
Suceso R: Sacar una bolita roja, probabilidad (1/5)
PR Probabilida de que sea Roja (1/3)
PN Probabilida de que sea Roja (1/5)
PN <- (1/3) 
PR <- (1/5)
cat("La probabilida en el el segundo evento se obtenga una bolita roja siendo en que el primer evento salio una roja es:",PN)
## La probabilida en el el segundo evento se obtenga una bolita roja siendo en que el primer evento salio una roja es: 0.3333333

2.¿Cuál es la probabilidad de que en el segundo evento se obtenga una bolita negra siendo que en la primera salió una negra?

Evento 2

Suceso N: Sacar una bolita roja, probabilidad (1/5)
Suceso R: Sacar una bolita roja, probabilidad (1/7)
PR Probabilida de que sea Roja (1/5)
PN Probabilida de que sea Roja (1/7)
PN <- (1/5) 
PR <- (1/7)
cat("La probabilida en el el segundo evento se obtenga una bolita roja siendo en que el primer evento salio una roja es:",PN)
## La probabilida en el el segundo evento se obtenga una bolita roja siendo en que el primer evento salio una roja es: 0.2