## title: A test script for the function stitch()
## author: Yihui Xie
set.seed(1121)
(x = rnorm(20))
mean(x);var(x)
boxplot(x)
hist(x, main = '')