differ<-function(x){ k<-length(unique(x[1:5])) if(k==1){m=0} if(k==2){m=0.25} if(k==3){m=0.5} if(k==4){m=0.75} if(k==5){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.