---
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.