Nothing
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)
}
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.