Nothing
## -----------------------------------------------------------------------------
library(contingency)
tab <- rprobMat(10, 2, 3)
tab
## -----------------------------------------------------------------------------
tab[c(1,4,5),]
## -----------------------------------------------------------------------------
tab[,1,1,]
## -----------------------------------------------------------------------------
tab[,1,1,,drop=FALSE]
## -----------------------------------------------------------------------------
margin(tab, 2:3) # margin of second and third dimensions
conditional(tab, 2, 1) # second dimension conditional on first
## -----------------------------------------------------------------------------
# as above but sequence of cells
margin2(tab, 2:3) # in table is retained
conditional2(tab, 2, 1)
## -----------------------------------------------------------------------------
tab2 <- rprobMat(10,2,3)
kl(tab, tab2) # pairwise Kullback-Leibler divergence
# mutual information between
mutualInf(tab, 2, 3) # second and third dimensions
mutualInf(tab, 2, 3, cond=1) # conditional mutual information
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.