---
title: "testing normality"
output: html_document
---


100 samples from a normal population
```{r}
z<-rnorm(100, 0, 1)
qqnorm(z)
```

sample a binomial distrubution with 1 trial (i.e. a Bernoulli Trial) 200 times:
```{r}
y<-rbinom(200,1, 0.5)
qqnorm(y)
```
Definitely not normal. 

Sample 200 times a binomial distribution with 1000 trials and probability p=0.5
```{r}
y<-rbinom(200,1000, 0.5)
qqnorm(y)
```


100 samples of an exponentially distributed population:
```{r}
w<-rexp(100,0.5)
qqnorm(w)
```
NOT NORMAL. 

