chi2.dirichletC<-function(x,y,a1,a2,unit="log") {
x<-freqsdirichletC(x,a1)
y<-freqsdirichletC(y,a2)
chi<-chi2pluginC(x,y,unit)
return(chi)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.