inst/examples/ex_shannon_mutual_info.R

xy <- Dist(c(10, 70, 15, 5))
x  <- Dist(c(80, 20))
y  <- Dist(c(25, 75))
shannon_mutual_info(xy, x, y)           # 0.2141709
shannon_mutual_info(xy, x, y, b = 3)    # 0.1351268
shannon_mutual_info(xy, x, y, b = 0)    # 0

Try the rinform package in your browser

Any scripts or data that you put into this service are public.

rinform documentation built on April 1, 2018, 12:12 p.m.