sqrtAxis <- function(ax=1:2) { for (i in ax) { axis(i, at=axTicks(i), labels=axTicks(i)^2, las=1) } }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.