---
title: "R Notebook"
output: html_notebook
---

```{r}
pdf('quiz1_hist.pdf')
set.seed(1)
d = rnorm(1000,10,5)
hist(d, main='', xlab = '', ylab = '', col='gray', asp=1/10)
dev.off()
```
