As a continuation of this post, we continue on the analysis of univariate data by generating graphical views of the Michelson speed of light data.

The simplest method to view the distribution is the stem and leaf plot.

```
> stem(C$V1)
The decimal point is 1 digit(s) to the left of the |
2996 | 2
2996 | 5
2997 | 222444
2997 | 566666788999
2998 | 000001111111111223344444444
2998 | 5555555566677778888888888999
2999 | 0011233444
2999 | 55566667888
3000 | 000
3000 | 7
```

We can also create a boxplot of the data. Notice the method to insert a mathematical expression in teh axis label.

```
> boxplot(C)
> title(ylab=expression(paste(m/sec," ",plain( x )," ",10^3)))
> title("Boxplot of Speed of Light")
```

And a histogram gives us a graphical view similar to the stem an leaf.

```
> hist(C$V1, main="Histogram of Data", xlab=expression(paste(m/sec," ",plain( x )," ",10^3)))
```

It’s always a good idea to generate a Q-Q Plot to check for normality.

```
> qqnorm(C$V1)
```

Caveat lector — All work and ideas presented here may not be accurate and should be verified before application.