computeIMEC {IMEC}

Computes the Ising model of explanatory coherence.

Description

Computes IMEC based on previously specified explanatory relations.

Usage

computeIMEC(
  matrix,
  evidence,
  phenomena,
  theory1,
  theory2 = character(),
  analytic = TRUE,
  analogy = numeric()
)

Arguments

matrix

matrix of explanatory relations.

evidence

vector of evidence for phenomena.

phenomena

vector of phenomena should be the same length as evidence.

theory1

vector of propositions in theory1.

theory2

vector of propositions in theory2.

analytic

whether the result should be calculated analytically or (for large networks) estimated using Metropolis-Hastings algorithm enhanced with Coupling from the past.

analogy

this argument is only for purposes of adding analogy in the future and should currently not be used.

Value

returns an IMEC object which contains the explanatory coherence of the propositions, the explanatory relations, the evidence, and the phenomena

Examples

# simple example comparing two hypotheses one of them with more explanatory breadth##
T1 <- c("H1", "H2")
Phenomena <- c("E1", "E2")
Thresholds <- c(2,2)
explanations <- initializeNetwork(Phenomena, T1)
explanations <- explain("H1", "E1", explanations)
explanations <- explain("H1", "E2", explanations)
explanations <- explain("H2", "E2", explanations)
explanations <- contradict("H1", "H2", explanations)
coherence <- computeIMEC(explanations, Thresholds, Phenomena, T1)
summary(coherence)
plot(coherence)