powered by
data("jointdata")
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