Refactor files

This commit is contained in:
2024-09-18 16:53:09 +02:00
parent 75b83bf0a4
commit 52796e9018
5 changed files with 32 additions and 24 deletions

View File

@@ -0,0 +1,8 @@
# Exercise 1 : Uniform
```{r}
n <- 10e4
U <- runif(n)
X <- 5 * (U <= 0.4) + 6 * (0.4 < U & U <= 0.6) + 7 * (0.6 < U & U <= 0.9) + 8 * (0.9 < U)
barplot(table(X)/n)
```