diff --git a/Rstudio b/Rstudio deleted file mode 100644 index 717cd6c361f3fcec7cfee9561ed060039f636088..0000000000000000000000000000000000000000 --- a/Rstudio +++ /dev/null @@ -1,26 +0,0 @@ ---- -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.