1. Ejemplo de un tirador

+Problema. Un tirador debe acertar dentro de un circulo de radio 3 contenido en una region cuadrada de lado 20. ¿Cual es la probabilidad de que el tirador acierte?

# Parámetros
s <- 20
r <- 3

# Visualización
plot(c(0, s), c(0, s), type = "n", xlab = "x", ylab = "y",
     main = "Probabilidad Geométrica: Punto en un Área")
rect(0, 0, s, s) # Cuadrado
symbols(s / 2, s / 2, circles = r, inches = FALSE, add = TRUE, fg = "red") # Círculo
text(s / 2, s * 0.9, paste("Área Cuadrado =", s^2), cex = 0.8)
text(s / 2, s * 0.1, paste("Área Círculo =", round(pi * r^2, 2)), col = "red", cex = 0.8)

# Probabilidad que un punto cualquiera este metido dentro de ese circulo
cat("P(A) =", round(pi * r^2/s^2, 2), "\n")
## P(A) = 0.07