arthur/ArtStudies
1
0
Fork 0
mirror of https://github.com/ArthurDanjou/ArtStudies.git synced 2026-02-11 12:07:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add exo 8

Browse Source
This commit is contained in:
Arthur Danjou
2024-10-02 15:04:03 +02:00
parent ae18b13ad2
commit 0ecd2582bb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
M1/Monte Carlo Methods/Exercise8.rmd
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)))]) 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) hist(x, freq = FALSE, breaks = 35)
lines(t, f(t, b, mean, sd), col = "red", lwd = 2) lines(t, f(t, b, mean, sd), col = "red", lwd = 2)
``` ```