str(caliper)
show(pl1 <-
xyplot(caliperb ~ calipera, caliper,
type = c("g","p"), aspect = "iso",
xlab = "Measurement with caliper A",
ylab = "Measurement with caliper B"))
tmd(pl1)Run the code above in your browser using DataLab