x.loc <- function (perc.loc) { usr.out <- par("usr") return(usr.out[1] + perc.loc * (usr.out[2] - usr.out[1])) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.