add third column of user-specified impossible list

verbal-autopsy-software · Dec 15, 2022 · cd9983c · cd9983c
1 parent 863b31a
commit cd9983c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/InSilicoVA/R/insilico_core.r b/InSilicoVA/R/insilico_core.r
@@ -1243,7 +1243,7 @@ ParseResult <- function(N_sub.j, C.j, S.j, N_level.j, pool.j, fit){
 			ss <- match(impossible.combination[ii, 1], colnames(data)[-1])
 			cc <- match(impossible.combination[ii, 2], colnames(prob.orig))
 			if((!is.na(ss)) && (!is.na(cc))){
-					impossible <- rbind(impossible, c(as.integer(cc), as.integer(ss)))
+					impossible <- rbind(impossible, c(as.integer(cc), as.integer(ss), as.integer(impossible.combination[ii, 3])))
 			}
 		}
 	}else{