str(yellow)
show(plt1 <- xyplot(b2 ~ b1, yellow, aspect = 'iso', type = c("g","p"),
xlab = "Initial color measure of lens",
ylab = "Color measure after 1 month"))
show(tmd(plt1))
Run the code above in your browser using DataLab