Skip to content

M
moocrr-reproducibility-study
Commit 586c8d00 authored by Meiling WU's avatar Meiling WU
Browse files
Options

Update toy_document_en.Rmd

parent dd4b8ebf
Show whitespace changes
Inline Side-by-side
Showing with 13 additions and 9 deletions
module2/exo1/toy_document_en.Rmd
View file @ 586c8d00
...@@ -10,18 +10,22 @@ output: html_document: ...@@ -10,18 +10,22 @@ output: html_document:
knitr::opts_chunk$set(echo = TRUE) knitr::opts_chunk$set(echo = TRUE)
``` ```
## Some explanations ```{r}
pi
set.seed(42)
```{r cars} N = 100000
summary(cars) x = runif(N)
``` theta = pi/2*runif(N)
2/(mean(x+sin(theta)>1))
```{r pressure, echo=FALSE} set.seed(42)
plot(pressure) 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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment