# Tests of distribution

```
> Iron <- subset(spearhead, subset=Mat=="2")
> Uniform <- runif(19,0,600)
> ks.test(Iron$Date,Uniform)
```

Test for whether `Maxle`

has a normal distribution with either
stipulated mean and standard deviation or those from the sample.

Graphical comparison:

```
> qqnorm(Maxle)
> qqline(Maxle)
```

Kolmogorov-Smirnov test:

```
> Normal = rnorm(40)
> ks.test(spearhead$Maxle,Normal)
```