Update toy_document_fr.Rmd

parent 44077d61
...@@ -17,7 +17,7 @@ Mon ordinateur m'indique que $\pi$ vaut *approximativement* ...@@ -17,7 +17,7 @@ Mon ordinateur m'indique que $\pi$ vaut *approximativement*
pi pi
``` ```
## En utilisant la méthode des aiguilles de Buffon ## En utilisant la méthode des aiguilles de Buffon
Mais calculé avec la __méthode__ des [aiguilles de Buffon] (https://fr.wikipedia.org/wiki/Aiguille_de_Buffon), on obtiendrait comme __approximation__ : Mais calculé avec la __méthode__ des [aiguilles de Buffon](https://fr.wikipedia.org/wiki/Aiguille_de_Buffon), on obtiendrait comme __approximation__ :
```{r} ```{r}
set.seed(42) set.seed(42)
...@@ -36,10 +36,10 @@ Carlo#D%C3%A9termination_de_la_valeur_de_%CF%80)). Le code suivant illustre ce f ...@@ -36,10 +36,10 @@ Carlo#D%C3%A9termination_de_la_valeur_de_%CF%80)). Le code suivant illustre ce f
```{r} ```{r}
set.seed(42) set.seed(42)
N = 1000 N = 1000 N = 1000
df = data.frame(X = runif(N), Y = runif(N)) df = data.frame(X = runif(N), Y = runif(N))
df$Accept = (df$X**2 + df$Y**2 <=1) df$Accept = (df$X**2 + df$Y**2 <=1)
library(ggplot2) library(ggplot2) library(ggplot2)
ggplot(df, aes(x=X,y=Y,color=Accept)) + geom_point(alpha=.2) + coord_fixed() + theme_bw() ggplot(df, aes(x=X,y=Y,color=Accept)) + geom_point(alpha=.2) + coord_fixed() + theme_bw()
``` ```
......
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