Nothing
inst/examples/ex_effectiveinfo.R
In rinform: An R Wrapper of the 'Inform' C Library for Information Analysis of Complex Systems
# Compute effective information on a 3 by 3 tpm with uniform interventionn
tpm <- matrix(0, nrow = 3, ncol = 3)
tpm[, 1] <- c(1.0 / 3, 1.0 / 3, 1.0 / 3)
tpm[, 2] <- c(0.250, 0.750, 0.000)
tpm[, 3] <- c(0.125, 0.500, 0.375)
inter <- c(0.300, 0.250, 0.450)
effective_info(tpm, NULL) # 0.202701
# .. and with a non-uniform intervention
inter <- c(0.300, 0.250, 0.450)
effective_info(tpm, inter) # 0.1724976
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.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# Compute effective information on a 3 by 3 tpm with uniform interventionn
tpm <- matrix(0, nrow = 3, ncol = 3)
tpm[, 1] <- c(1.0 / 3, 1.0 / 3, 1.0 / 3)
tpm[, 2] <- c(0.250, 0.750, 0.000)
tpm[, 3] <- c(0.125, 0.500, 0.375)
inter <- c(0.300, 0.250, 0.450)
effective_info(tpm, NULL) # 0.202701
# .. and with a non-uniform intervention
inter <- c(0.300, 0.250, 0.450)
effective_info(tpm, inter) # 0.1724976
Try the rinform package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.