logplot <-
function (x, y)
{
plot.paper(range(x), range(y), x.axis = "log", y.axis = "log",
grids = F)
points.default(logb(x), logb(y))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.