\name{StatSciChinese}
\alias{StatSciChinese}
\docType{data}
\title{Statistical Science in Chinese}
\description{
  (x, y, z) coordinates of the location of the tip of a pen during fifty
  replications of writing 'Statistical Science' in simplified Chinese at
  10 millisecond intervals
}
\usage{data(StatSciChinese)}
\format{
  a 3-dimensional array of dimensions (601, 50, 3) containing 601
  observations of (x, y, z) coordinates of the tip of a pen at 2.5
  millisecond intervals for each of 50 repitions of writing 'Statistical
  Science' in simplified Chinese.
}
\details{
  Xiaochun Li wrote 'Statistical Science' in simplified Chinese 50
  times.  An infra-red detecting tablet was attached to the tip of the
  pen, and a wall-mounted set of three cameras recorded its position 400
  times per second with an error level of about 0.5 millimeters.  Each
  sample required about 6 seconds to produce, and for simplicity, time
  was normalized to this interval for all 50 records.  The script
  requires 50 strokes, with an average time of 120 milliseconds per
  stroke.  These raw data were shifted and rotated so the numbers more
  accruately reflected \code{x} and \code{y} coordinates relative to the
  drawn characters plus vertical distance from the paper.
}
%\source{}
\references{
  Ramsay, James O. (2000) Functional Components of Variation in
  Handwriting, \emph{Journal of the American Statistical Association},
  95, 9-15.
}
\examples{
data(StatSciChinese)

i <- 3
StatSci1 <- StatSciChinese[, i, ]
# Where does the pen leave the paper?
plot(StatSci1[, 3], type='l')
thresh <- quantile(StatSci1[, 3], .8)
abline(h=thresh)

sel1 <- (StatSci1[, 3] < thresh)
StatSci1[!sel1, 1:2] <- NA
plot(StatSci1[, 1:2], type='l')

mark <- seq(1, 601, 12)
points(StatSci1[mark, 1], StatSci1[mark, 2])
}
\keyword{datasets}