Nothing
.cexscale <- function(y, y1=y, maxcex=4,mincex=0.05,cex, fun=NULL){
if(is.null(fun)) fun <- function(x) log(1+abs(x))
ly <- fun(y)
ly1 <- fun(unique(c(y,y1)))
my <- min(ly1,na.rm=TRUE)
My <- max(ly1,na.rm=TRUE)
ly0 <- (ly-my)/My
ly1 <- ly0*(maxcex-mincex)+mincex
return(cex*ly1)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.