sim.dat <-
make.groups(uniform = runif(200),
exponential = rexp(175),
lognormal = rlnorm(150),
normal = rnorm(125))
qqmath( ~ data | which, sim.dat, scales = list(y = "free"))
Run the code above in your browser using DataLab