data(HuSpeech)
## clear pattern: 1/3 short, 1/3 long, 1/3 short again
plot(HuSpeech, type = "b", pch = 20, xlab = "paragraph index",
ylab = "word count")
## see ?moving.block for an animation example}
Run the code above in your browser using DataLab