library(mvtsplot)
set.seed(971)
x1 <- matrix(-0.005 * (1:200) + rnorm(200 * 10), 200, 10)
x2 <- matrix(-0.005 * (1:200) + rnorm(200 * 10, mean = 2, sd = 2), 200, 10)
x <- cbind(x1, x2)
colnames(x) <- paste("X", 1:ncol(x))
g <- gl(2, 10)
## Internal normalization
mvtsplot(x, margin = FALSE, norm = "internal", group = g)
## Global normalization
mvtsplot(x, margin = FALSE, norm = "global", group = g)
## Use margin plots
mvtsplot(x, group = g, levels = 7)
Run the code above in your browser using DataLab