library(MASS)
library(lattice)
xyplot(Gas~Temp | Insul, whiteside)