horizontal <-
function(microns=2000){
arrowlength <- locator()
arrow <- max(arrowlength$x)-min(arrowlength$x)
runits <- microns / arrow
return(list(runits=runits))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.