Skip to content

M
mooc-rr
Commit c7fa0d84 authored by 8f7726592c23135ae5b65a064228781a's avatar 8f7726592c23135ae5b65a064228781a
Browse files
Options

Update toy_document_fr.Rmd

parent f3dd8dd1
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
module2/exo1/toy_document_fr.Rmd
View file @ c7fa0d84
...@@ -36,11 +36,11 @@ set.seed(42) ...@@ -36,11 +36,11 @@ set.seed(42)
N = 1000 N = 1000
df = data.frame(X = runif(N), Y = runif(N))df$Accept = (df$X**2 + df$Y**2 <=1) df = data.frame(X = runif(N), Y = runif(N))df$Accept = (df$X**2 + df$Y**2 <=1)
library(ggplot2)ggplot(df, aes(x=X,y=Y,color=Accept)) + geom_point(alpha=.2) + coord_fixed() + theme_bw() library(ggplot2)ggplot(df, aes(x=X,y=Y,color=Accept)) + geom_point(alpha=.2) + coord_fixed() + theme_bw()
``` ```
Il est alors aisé d'obtenir une approximation (pas terrible) de $\pi$ Il est alors aisé d'obtenir une approximation (pas terrible) de $\pi$
en comptant combien de fois, en moyenne, $X^2 + Y^2$ est inférieur à 1: en comptant combien de fois, en moyenne, $X^2 + Y^2$ est inférieur à 1:
```{r} ```{r}
4*mean(df$Accept) 4*mean(df$Accept)
``` ```
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment