powered by
milk
print("Rug Plot - Example 1.8.1") xyrange <- range(milk) plot(four ~ one, data = milk, xlim = xyrange, ylim = xyrange, pch = 16) rug(milk$one) rug(milk$four, side = 2) abline(0, 1)
Run the code above in your browser using DataLab