Data set: faithful, 272*2, Waiting time between eruptions and the duration of the eruption for the Old Faithful geyser.
> head(faithful)
eruptions waiting
1 3.600 79
2 1.800 54
3 3.333 74
4 2.283 62
5 4.533 85
6 2.883 55
Checking the range of duration.
> duration <- faithful$eruptions
> range(duration)
[1] 1.6 5.1
Setting breaks of the distribution
> breaks <- seq(1.5, 5.5, by = 0.5)
Cutting duration into different class.
Out() function divides the range of x into intervals and codes the values in x according to which interval they fall.
Arguments: X - a numeric vector
breaks - either a numeric vector of two or more unique cut points or a single number