search for: beec_uni

Hi,   I would like to draw a box at each corner of lower 10% and upper 10% in the scatter plot on(0,1)*(0,1)  to indicate the lower and upper tail.  I hope somebody can help me.   Here is my code: ## scatter plot plot(hume_uni[,2],beec_uni[,2], pch=19, xlab="Hume_uni", ylab="Beec_uni", col= "blue")  title(main="Scatter plot of uniformised data of Hume and Beechworth", font.main= 4) abline(lm(hume_uni[,2]~beec_uni[,2]), col= "red").   Thank you so much fro any help given....