Add exo 8

This commit is contained in:
2024-10-02 15:04:03 +02:00
parent ae18b13ad2
commit 0ecd2582bb

View File

@@ -27,7 +27,7 @@ while (length(x) < n) {
x <- append(x, X[U <= (f(X, b, mean, sd) / (M(b, mean, sd) * g(X, b, mean, sd)))])
}
t <- seq(b, 8, 0.01)
t <- seq(b, 7, 0.01)
hist(x, freq = FALSE, breaks = 35)
lines(t, f(t, b, mean, sd), col = "red", lwd = 2)
```