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