chi2indep.DirichletC<-function(y2d,a,unit="log") {
f2d<-freqs.DirichletC(y2d,a)
chi2<-chi2indep.pluginC(f2d,unit)
return(chi2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.