crowding <- function(x){ k<-length(which(x>=0)) if(k==0){m=0} if(k==1){m=0.25} if(k==2){m=0.5} if(k==3){m=0.75} if(k==4){m=1} return(m) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.