From 8e680a4f41efe7ae6eff55452e97d5bb17f437dd Mon Sep 17 00:00:00 2001 From: Arthur DANJOU Date: Wed, 9 Oct 2024 15:08:28 +0200 Subject: [PATCH] Edit exercise 9 --- M1/Monte Carlo Methods/Exercise9.rmd | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/M1/Monte Carlo Methods/Exercise9.rmd b/M1/Monte Carlo Methods/Exercise9.rmd index e9b9668..5a1d90b 100644 --- a/M1/Monte Carlo Methods/Exercise9.rmd +++ b/M1/Monte Carlo Methods/Exercise9.rmd @@ -3,7 +3,7 @@ ## Methode 1 ```{r} -n <- 150000 +n <- 15e4 pi_1 <- function(n) { U <- runif(n, 0, 1) @@ -14,7 +14,7 @@ pi_1(n) ## Methode 2 ```{r} -n <- 150000 +n <- 15e4 pi_2 <- function(n) { U1 <- runif(n, 0, 1) @@ -27,7 +27,7 @@ pi_2(n) ## Best Estimator ```{r} n <- 1000 -m <- 150000 +m <- 15e4 sample_1 <- replicate(n, pi_1(m)) sample_2 <- replicate(n, pi_2(m))