From 586c8d0012984f758ae5e45e8b10c7f54b59a6ce Mon Sep 17 00:00:00 2001
From: Meiling WU <a36b2a8227e6b46f4a4d564434a024e3@app-learninglab.inria.fr>
Date: Mon, 30 May 2022 09:38:28 +0000
Subject: [PATCH] Update toy_document_en.Rmd

---
 module2/exo1/toy_document_en.Rmd | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/module2/exo1/toy_document_en.Rmd b/module2/exo1/toy_document_en.Rmd
index bae961c..fe0295b 100644
--- a/module2/exo1/toy_document_en.Rmd
+++ b/module2/exo1/toy_document_en.Rmd
@@ -10,18 +10,22 @@ output: html_document:
 knitr::opts_chunk$set(echo = TRUE)
 ```
 
-## Some explanations
+```{r}	
+pi
 
 
 
-
-```{r cars}
-summary(cars)
-```
+set.seed(42)
+N = 100000
+x = runif(N)
+theta = pi/2*runif(N)
+2/(mean(x+sin(theta)>1))
 
 
 
-```{r pressure, echo=FALSE}
-plot(pressure)
-```
-
+set.seed(42)
+N = 1000
+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()
\ No newline at end of file
-- 
2.18.1