Update toy_document_en.Rmd

parent 49c40de5
...@@ -10,7 +10,6 @@ knitr::opts_chunk$set(echo = TRUE) ...@@ -10,7 +10,6 @@ knitr::opts_chunk$set(echo = TRUE)
``` ```
## Asking the maths library ## Asking the maths library
My computer tells me that $\pi$ is *approximatively* My computer tells me that $\pi$ is *approximatively*
```{r} ```{r}
...@@ -40,8 +39,8 @@ df = data.frame(X = runif(N), Y = runif(N)) ...@@ -40,8 +39,8 @@ 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()
``` ```
It is then straightforward to obtain a (not really good) approximation to $\pi$ by counting how many times, on average, $X^2 + Y^2$ is smaller than 1: It is then straightforward to obtain a (not really good) approximation to $\pi$ by counting how many times, on average, $X^2 + Y^2$ is smaller than 1:
```{r} ```{r}
......
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