This commit is contained in:
2024-09-17 22:45:56 +02:00
parent 0209e6fefa
commit fbd5f8990e
2 changed files with 2 additions and 27 deletions

View File

@@ -1,4 +1,4 @@
# Exercice 1 : Uniform
# Exercise 1 : Uniform
```{r}
n <- 10e4
@@ -7,7 +7,7 @@ X <- 5 * (U <= 0.4) + 6 * (0.4 < U & U <= 0.6) + 7 * (0.6 < U & U <= 0.9) + 8 *
barplot(table(X)/n)
```
# Exercice 3 : Box Muller Algo
# Exercise 3 : Box Muller Algo
```{r}
BM <- function(n) {