powered by
drawBox(x, fg = par('fg'), bg = NA, colCtr = NA, lty = par('lty'), lwd = par('lwd'), pch = par('pch'), cex = par('cex')) "drawBox"(x, fg = par('fg'), bg = NA, colCtr = NA, lty = par('lty'), lwd = par('lwd'), pch = par('pch'), cex = par('cex')) "drawBox"(x, fg = par('fg'), bg = NA, colCtr = NA, lty = par('lty'), lwd = par('lwd'), pch = par('pch'), cex = par('cex'))
pts
getBoundingBox
NA
rect
xy <- matrix(round(rnorm(20, 100, 15), 1), ncol=2) (bb <- getBoundingBox(xy)) plot(xy, asp=1, pch=16) drawBox(bb, fg='blue', colCtr='blue', pch=4, cex=2)
Run the code above in your browser using DataLab