Skip to content

M
moocrr-reproducibility-study
Commit 7d8ca209 authored by b05f84b9ee021dccccc4787bb5a09153's avatar b05f84b9ee021dccccc4787bb5a09153
Browse files
Options

Update2 toy_document_fr.Rmd

parent 2a4b3a7e
Show whitespace changes
Inline Side-by-side
Showing with 9 additions and 18 deletions
module2/exo1/toy_document_fr.Rmd
View file @ 7d8ca209
...@@ -19,13 +19,9 @@ Mais calculé avec la **méthode** des [aiguilles de Buffon](https://fr.wikipedi ...@@ -19,13 +19,9 @@ Mais calculé avec la **méthode** des [aiguilles de Buffon](https://fr.wikipedi
```{r} ```{r}
set.seed(42) set.seed(42)
N = 100000 N = 100000
x = runif(N) x = runif(N)
theta = pi/2*runif(N) theta = pi/2*runif(N)
2/(mean(x+sin(theta)>1)) 2/(mean(x+sin(theta)>1))
``` ```
...@@ -39,15 +35,10 @@ $P[X^{2} + Y^{2} \leq 1]= \pi /4$ ...@@ -39,15 +35,10 @@ $P[X^{2} + Y^{2} \leq 1]= \pi /4$
```{r } ```{r }
set.seed(42) set.seed(42)
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)
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