junction <- function(x, y, col=par('col'), lwd=par('lwd'), cex=par('cex')) { points(x, y, pch=20, col=col, lwd=lwd) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.