Update toy_document_en.Rmd

parent a354df90
...@@ -5,8 +5,8 @@ date: "25 juin 2018" ...@@ -5,8 +5,8 @@ date: "25 juin 2018"
output: html_document output: html_document
--- ---
```{r setup, include=FALSE} ```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE) knitr::opts_chunk$set(echo = TRUE)
``` ```
## Asking the maths library ## Asking the maths library
...@@ -38,7 +38,7 @@ library(ggplot2) ...@@ -38,7 +38,7 @@ 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}
4*mean(df$Accept) 4*mean(df$Accept)
......
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