---
title: "Hadley Wickham"
---
## Employment
- Chief Scientist, Rstudio, **2013--present**.
- Adjust Professor, Rice University, Houston, TX, **2013--present**.
- Assistant Professor, Rice University, Houston, TX, **2008--12**.
## Education
- Ph.D. in Statistics, Iowa State University, Ames, IA, **2008**
- M.Sc. in Statistics, University of Auckland, New Zealand, **2004**
- B.Sc. in Statistics and Computer Science, First Class Honours, The
University of Auckland, New Zealand, **2002**.
- Bachelor of Human Biology, First Class Honours, The University of Auckland,
Auckland, New Zealand, **1999**.
---
title: "Diamond sizes"
date: 2016-08-25
output: html_document
---
```{r setup, include = FALSE}
library(ggplot2)
library(dplyr)
smaller <- diamonds %>%
filter(carat <= 2.5)
```
We have data about `r nrow(diamonds)` diamonds. Only
`r nrow(diamonds) - nrow(smaller)` are larger than
2.5 carats. The distribution of the remainder is shown
below:
```{r, echo = FALSE}
smaller %>%
ggplot(aes(carat)) +
geom_freqpoly(binwidth = 0.01)
```
comment here!!
The chunk `a` has no dependencies.
```{r a}
print(lubridate::now())
x <- 1
```
The chunk `b` depends on `a`.
```{r b, dependson = c("a")}
print(lubridate::now())
y <- x + 1
```
The chunk `c` depends on `a`.
```{r c, dependson = c("a")}
print(lubridate::now())
z <- x * 2
```
The chunk `d` depends on `c` and `b`:
```{r d, dependson = c("c", "b")}
print(lubridate::now())
w <- y + z
```
