powered by
milk
data(milk)
print("Rug Plot - Example 1.8.1") data(milk) 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