Se tienen dos urnas como sigue:

Urna 1 : 4 bolitas rojas y 1 negra

Urna 2 : 3 bolitas rojas y 2 negras

Se lanza un dado, si sale 2, se saca una bolita de la urna 1,

de lo contrario se saca una de la urna 2.

¿Cuál es la probabilidad de que salga una bolita negra?

urna <- function(nsim = 2000) {
    dado <- 1:6
    urna1 <- rep(c("ROJO", "NEGRO"), c(4, 1))
    urna2 <- rep(c("ROJO", "NEGRO"), c(3, 2))
    bolanegra <- 0
    for (i in 1:nsim) {
        resdado <- sample(dado, 1)
        if (resdado == 2) {
            resurna <- sample(urna1, 1)
        } else {
            resurna <- sample(urna2, 1)
        }
        if (resurna == "NEGRO") {
            bolanegra <- bolanegra + 1
        }
    }
    # RESULTADOS
    cat("\n La probabilidad de que salga una bolita negra es de:\n\n", bolanegra/nsim, 
        "\n")
}
urna(4000)

## 
##  La probabilidad de que salga una bolita negra es de:
## 
##  0.3693

urna(1e+05)

## 
##  La probabilidad de que salga una bolita negra es de:
## 
##  0.367