Simple_Implication

2024-05-03

We use a simple implication relation to familiar ourselves with the DS-ECP syntax. Suppose we are sure about an implication and with a certain probability the premise is true and we don’t know the rest. There are two SSMs. One is the premise and the other the conclusion. There are two DSMs. One is the probability on the first SSM and the other is the structural equation between the two SSMs. Besides the ttmatrix, m vector, it’s necessary to give it varnames and idvar or else the extension would’ve failed. For the premise in the syntax of DS-ECP, we have $$\text{SSM1}: A=\{a\text{ is }T, a\text{ is }F\}$$ and $$\text{DSM1}: \mathcal{P}(A) \rightarrow [0,1]$$ where $\mathcal{P}(A) = \{\emptyset, \{a\text{ is }T\}, \{a\text{ is }F\}, \{a\text{ is }T\text{ or }a\text{ is }F\}\}$ and $\text{DSM1}(\{a\text{ is }T\}) = p$ and $\text{DSM1}(\{a\text{ is }F\}) = 1 - p$ This can be written in the syntax of dst as:

DSM1_tt <- matrix(c(1,0,0,1,1,1), nrow = 2 + 1, ncol = 2, byrow = TRUE)
DSM1_m <- matrix(c(0.3,0.7,0), nrow = 2 + 1, ncol = 1)
DSM1_cnames <- c("a is True", "a is False")
DSM1_varnames <- c("a")
DSM1_idvar <- 1
DSM1 <- bca(DSM1_tt, DSM1_m, cnames = DSM1_cnames, idvar = DSM1_idvar, varnames = DSM1_varnames)
bcaPrint(DSM1)
##         DSM1 specnb mass
## 1  a is True      1  0.3
## 2 a is False      2  0.7

Technically we have three overall DSMs with the addition of the conclusion DSM that we’re interested in inferring. Similar to DSM1, we have:

DSM3_tt <- matrix(c(1,1), nrow = 1, ncol = 2, byrow = TRUE)
DSM3_m <- matrix(c(1), nrow = 1, ncol = 1)
DSM3_cnames <- c("b is True", "b is False")
DSM3_varnames <- c("b")
DSM3_idvar <- 3
DSM3 <- bca(DSM3_tt, DSM3_m, cnames = DSM3_cnames, idvar = DSM3_idvar, varnames = DSM3_varnames)
bcaPrint(DSM3)
##    DSM3 specnb mass
## 1 frame      1    1

For the structural relation we can obtain the implication relation from https://web.stanford.edu/class/cs103/tools/truth-table-tool/. Besides the ttmatrix, m vector, it’s necesssary to give row names of the tt matrix, infovar, and varnames, or else the bcaRel argument checks would fail. In the syntax of DS-ECP, we define $$\text{SSM2}: A \times B$$ and $$\text{DSM2}: \mathcal{P}(A \times B) \rightarrow [0,1]$$ where $\mathcal{P}(A \times B) = \{\emptyset, \{a\text{ is }T\text{ and }b\text{ is }T\}, ..., \\ \{a\text{ is }T\text{ and }b\text{ is }T\text{ or }a\text{ is }T\text{ and }b\text{ is }F\}, ..., \\ \{a\text{ is }T\text{ and }b\text{ is }T\text{ or }a\text{ is }T\text{ and }b\text{ is }F\text{ or }a\text{ is }F\text{ and }b\text{ is }T\}, ..., \\ \{a\text{ is }T\text{ and }b\text{ is }T\text{ or }a\text{ is }T\text{ and }b\text{ is }F\text{ or }a\text{ is }F\text{ and }b\text{ is }T\text{ or }a\text{ is }F\text{ and }b\text{ is }F\}\}$ and $\text{DSM2}(\{a\text{ is }T\text{ and }b\text{ is }T\text{ or }a\text{ is }F\text{ and }b\text{ is }T\text{ or }a\text{ is }F\text{ and }b\text{ is }F\}) = 1$

DSM2_tt <- matrix(c(0,1,0,1,
0,1,1,0,
1,0,1,0,
1,1,1,1), nrow = 3 + 1, ncol = 4, byrow = TRUE, dimnames = list(NULL, c("a is True", "a is False", "b is True", "b is False")))
DSM2_m <- matrix(c(1,1,1,2,
1,1,1,0), nrow = 3 + 1, ncol = 2)
DSM2_infovar <- matrix(c(1,3,2,2), nrow = 2, ncol = 2)
DSM2_varnames <- c("a","b")
DSM2 <- bcaRel(DSM2_tt, DSM2_m, DSM2_infovar, DSM2_varnames)
bcaPrint(DSM2)
##                                                                 DSM2 specnb
## 1 a is True b is True + a is False b is True + a is False b is False      1
##   mass
## 1    1

Here we need to extend DSM1 to the joint space so it can be combined with DSM2. In the syntax of DS-ECP, we obtain $$\text{uporj_DSM1}: \mathcal{P}(A \times B) \rightarrow [0,1]$$ where $$\mathcal{P}(A \times B)$$ is as previously mentioned and $\text{uporj_DSM1}(\{a\text{ is }T\text{ and }b\text{ is }T\text{ or }a\text{ is }T\text{ and }b\text{ is }F\}) = p$ and $\text{uporj_DSM1}(\{a\text{ is }F\text{ and }b\text{ is }T\text{ or }a\text{ is }F\text{ and }b\text{ is }F\}) = 1 - p$ In the syntax of dst, this is:

uporj_DSM1 <- extmin(DSM1, DSM2)
bcaPrint(uporj_DSM1)
##                                     uporj_DSM1 specnb mass
## 1   a is True b is True + a is True b is False      1  0.3
## 2 a is False b is True + a is False b is False      2  0.7

Now we can combine the two DSMs over the joint space. In the syntax of DS-ECP, we have $$\text{uporj_DSM1_xDSC_DSM2}: \mathcal{P}(A \times B) \rightarrow [0,1]$$ and $\text{uporj_DSM1_xDSC_DSM2}(\{a\text{ is }T\text{ and }b\text{ is }T\}) = p$ and $\text{uporj_DSM1_xDSC_DSM2}(a\text{ is }F\text{ and }b\text{ is }T\text{ or }a\text{ is }F\text{ and }b\text{ is }F\}) = 1 - p$ In the syntax of dst, we have:

uporj_DSM1_xDSC_DSM2 <- dsrwon(uporj_DSM1, DSM2)
bcaPrint(uporj_DSM1_xDSC_DSM2)
##                           uporj_DSM1_xDSC_DSM2 specnb mass
## 1                          a is True b is True      1  0.3
## 2 a is False b is True + a is False b is False      2  0.7

After obtaining the DSM over the joint space, we can project it down by marginalizing out the premise. In the syntax of DS-ECP, we obtained $$\text{uproj_DSM1_xDSC_DSM2_dproj}: \mathcal{P}(B) \rightarrow [0,1]$$ and $\text{uporj_DSM1_xDSC_DSM2_dproj}(\{b\text{ is }T\}) = p$ and $\text{uporj_DSM1_xDSC_DSM2_dproj}(\{b\text{ is }T\text{ or }b\text{ is }F\}) = 1 - p$

uporj_DSM1_xDSC_DSM2_dproj <- elim(uporj_DSM1_xDSC_DSM2, 1)
bcaPrint(uporj_DSM1_xDSC_DSM2_dproj)
##   uporj_DSM1_xDSC_DSM2_dproj specnb mass
## 1                  b is True      1  0.3
## 2                      frame      2  0.7

Now we can evaluate the belief and plausibility of this DSM. Here the $$\text{DSA}:(p,q,r)$$ triplet corresponds to $$(\text{bel},\text{disbel},\text{unc})$$ in the belplau table.

DSA <- belplau(uporj_DSM1_xDSC_DSM2_dproj)
DSA
##           bel disbel unc plau    rplau
## b is True 0.3      0 0.7    1 1.428571
## frame     1.0      0 0.0    1      Inf