Edit exercise 9

This commit is contained in:
2024-10-09 15:08:28 +02:00
parent fdfff091a7
commit 8e680a4f41

View File

@@ -3,7 +3,7 @@
## Methode 1 ## Methode 1
```{r} ```{r}
n <- 150000 n <- 15e4
pi_1 <- function(n) { pi_1 <- function(n) {
U <- runif(n, 0, 1) U <- runif(n, 0, 1)
@@ -14,7 +14,7 @@ pi_1(n)
## Methode 2 ## Methode 2
```{r} ```{r}
n <- 150000 n <- 15e4
pi_2 <- function(n) { pi_2 <- function(n) {
U1 <- runif(n, 0, 1) U1 <- runif(n, 0, 1)
@@ -27,7 +27,7 @@ pi_2(n)
## Best Estimator ## Best Estimator
```{r} ```{r}
n <- 1000 n <- 1000
m <- 150000 m <- 15e4
sample_1 <- replicate(n, pi_1(m)) sample_1 <- replicate(n, pi_1(m))
sample_2 <- replicate(n, pi_2(m)) sample_2 <- replicate(n, pi_2(m))