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