#--- EXAMPLE 1 ------------------------------------------
sig <- diag (2)
cen <- rep (1,2)
x <- rbind (
rmvnorm (108, cen * 0, sig),
rmvnorm (162, cen * 5, sig * 6 - 2),
rmvnorm (30, cen * 2.5, sig * 50)
)
ctl.a <- ctlcurves (x, k = 1:4, restr.fact=12)
plot(ctl.a)
ctl.b <- ctlcurves (x, k = 1:4, restr.fact = 50)
plot(ctl.b)
#--- EXAMPLE 2 ------------------------------------------
data (geyser2)
ctl <- ctlcurves (geyser2, k = 1:5)
plot(ctl)Run the code above in your browser using DataLab