#--- EXAMPLE 1 ------------------------------------------
# \donttest{
sig <- diag (2)
cen <- rep (1, 2)
x <- rbind(MASS::mvrnorm(108, cen * 0, sig),
MASS::mvrnorm(162, cen * 5, sig * 6 - 2),
MASS::mvrnorm(30, cen * 2.5, sig * 50))
(ctl <- ctlcurves(x, k = 1:4))
plot(ctl)
# }
Run the code above in your browser using DataLab