> library(faraway)
> data(corrosion)
> corrosion[c(1:3, 12:13), ]
     Fe  loss
1  0.01 127.6
2  0.48 124.0
3  0.71 110.8
12 1.44  91.4
13 1.96  86.2
> library(lattice)
> xyplot(loss ~ Fe, data = corrosion)