Nothing
amari_distance <-
function(Q1,Q2){
m=nrow(Q1)
Per=Q1%*%ginv(Q2)
Perf=(sum(apply(abs(Per),1,sum)/apply(abs(Per),1,max)-1)/(m-1)+sum(apply(abs(Per),2,sum)/apply(abs(Per),2,max)-1)/(m-1))/(2*m)
return(Perf)
}
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.