library(HRW) ; data(growthIndiana)
growthINblackMales <- growthIndiana[(growthIndiana$male == 1) & (growthIndiana$black == 1),]
if (require("lattice"))
xyplot(height ~ age|factor(idnum),data = growthINblackMales)
Run the code above in your browser using DataLab