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

---
 Rstudio.md | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 Rstudio.md

diff --git a/Rstudio.md b/Rstudio.md
new file mode 100644
index 0000000..61b2267
--- /dev/null
+++ b/Rstudio.md
@@ -0,0 +1,42 @@
+---
+title: "Estimations de π avec R"
+author: "Votre nom"
+date: "`r format(Sys.Date(), '%d %B %Y')`"
+output: html_document
+---
+
+# À propos de pi
+
+Voici la valeur de $\pi$ estimée avec différentes méthodes :
+
+## Valeur directe
+
+Utilisation directe de la constante intégrée `pi` :
+
+```{r}
+pi
+
+set.seed(42)
+N <- 100000
+x <- runif(N)
+theta <- pi / 2 * runif(N)
+pi_buffon <- 2 / mean(x + sin(theta) > 1)
+pi_buffon
+
+set.seed(42)
+N <- 1000
+df <- data.frame(X = runif(N), Y = runif(N))
+df$Accept <- (df$X^2 + df$Y^2 <= 1)
+ggplot(df, aes(x = X, y = Y, color = Accept)) +
+  geom_point(alpha = 0.2) +
+  coord_fixed() +
+  theme_bw()
+4 * mean(df$Accept)
+
+
+
+
+
+
+
+
-- 
2.18.1