Un problema de probabilidad condicionada

Una urna contiene 60 bolas blancas y 20 negras. Se extrae una bola y resulta ser negra. A continuación se extrae una segunda bola sin reponer la anterior. ¿Cuál es la probabilidad de que esta segunda bola sea también negra? 

# INICIO -------------------------

rm(list=ls())

# Definimos el número inicial de bolas blancas y negras

blancas_inicial <- 60

negras_inicial <- 20

total_inicial <- blancas_inicial + negras_inicial

# Calculamos la probabilidad de que la primera bola sea negra

prob_primera_negra <- negras_inicial / total_inicial

# Como la primera bola es negra, actualizamos el conteo de bolas
negras_restantes <- negras_inicial - 1
total_restantes <- total_inicial - 1

# Probabilidad de que la segunda bola sea negra condicionada a que la primera fue negra
prob_segunda_negra_condicionada_primera_negra <- negras_restantes / total_restantes

# Probabilidad de que ambas bolas sean negras

prob_ambas_negras <-  prob_segunda_negra_condicionada_primera_negra * prob_primera_negra

prob_ambas_negras

#FIN -------------------------