Nothing
tauK<-function(X){
n<-sum(X)
pi<-apply(X,1,sum)/n
pj<-apply(X,2,sum)/n
pij<-X/n
s1<-sweep(pij^2,1,pi,"/")
tau<-(sum(s1)-sum(pj^2))/(1-sum(pj^2))
tau}
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.