From fbedb020ba0c2d57b710d694be3c21034d1f4fea Mon Sep 17 00:00:00 2001
From: 8304325c6c80c4a3e512ad9acf6efc06
 <8304325c6c80c4a3e512ad9acf6efc06@app-learninglab.inria.fr>
Date: Wed, 7 May 2025 15:37:37 +0000
Subject: [PATCH] Add new file

---
 Rstudio | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 Rstudio

diff --git a/Rstudio b/Rstudio
new file mode 100644
index 0000000..717cd6c
--- /dev/null
+++ b/Rstudio
@@ -0,0 +1,26 @@
+---
+title: \"Votre titre\"
+author: \"Votre nom\"
+date: \"`r Sys.Date()`\"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)pi
+set.seed(42)
+N = 100000
+x = runif(N)
+theta = pi / 2 * runif(N)
+2 / (mean(x + sin(theta) > 1))
+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 = 0.2) +
+  coord_fixed() +
+  theme_bw()
+4 * mean(df$Accept)
+
+Tu peux maintenant copier ce bloc et l’utiliser directement dans RStudio.
-- 
2.18.1