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)Run the code above in your browser using DataLab