¿Cómo aproximado la siguiente integral usando la simulación MC?
¡Gracias!
Editar (Algún contexto): estoy tratando de aprender a usar la simulación para aproximar integrales, y estoy haciendo algo de práctica cuando me encontré con algunas dificultades.
Edición 2 + 3 : De alguna manera me confundí y pensé que necesitaba dividir la integral en partes separadas. Entonces, en realidad lo descubrí:
n <- 15000
x <- runif(n, min=-1, max=1)
y <- runif(n, min=-1, max=1)
mean(4*abs(x-y))
integrate(integrate(abs(x-y), y, -1, 1), x, -1, 1);
y obtener la respuesta 8/3.
integrate(Vectorize(function(y) integrate(function(x) abs(x-y), -1, 1)$value), -1, 1)
y obtener una aproximación numérica. Se puede usar el paquete cubatureadaptIntegrate(function(x) abs(x[1] - x[2]), c(-1, -1), c(1, 1))
. Esto es solo para dar un par de ideas para la evaluación numérica de integrales que podrían ser útiles, por ejemplo, al probar si una simulación funciona correctamente.