#data
set.seed(123)
myd <- data.frame (var1 = rnorm (60, 10, 5), var2 = rnorm (60, 8,2), var3 = rnorm (60, 50, 10), var4 = rnorm (60, 15,10), facA = rep(c ("A", "B", "C"), each = 20))
require(lattice) ;
require(grid)
parallel(~myd[1:4], data = myd, pscales = 0)
parallel(~myd[1:4]|facA, data = myd, layout=c(3,1), pscales = 0)
