initializeNetwork: Initialize the explanatory network

In MaxMaier42/IMEC: Ising Model of Explanatory Coherence

Initialize the explanatory network

Description

This function initializes the network in which explanatory relations can be stored later.

Usage

initializeNetwork(phenomena, theory1, theory2 = character())

Arguments

phenomena	Vector of phenomena that are explained
theory1	Vector of propositions included in theory 1
theory2	Vector of propositions included in theory 2 (only set manually if theory comparison is intended)

Value

An empty edge matrix (all edges 0)

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)

MaxMaier42/IMEC documentation built on Oct. 30, 2022, 2:28 a.m.