powered by
data("jointdata")
z1
z2
z3
z4
z5
data(jointdata) par(mfrow=c(2, 3)) h <- lapply(jointdata, hist) par(mfrow=c(1, 1)) plot(z2 ~ z1, jointdata)
Run the code above in your browser using DataLab