# NOT RUN {
# CS data
findOutcomes(d.educate)
findOutcomes(d.educate, con = 0.75, cov = 0.75)
# A causal chain.
target1 <- "(A + B <-> C)*(C + D <-> E)"
dat1 <- selectCases(target1, full.tt(target1))
findOutcomes(dat1)
# A causal cycle.
target2 <- "(A + Y1 <-> B)*(B + Y2 <-> A)*(A + Y3 <-> C)"
dat2 <- selectCases(target2, full.tt(target2))
findOutcomes(dat2)
# MV data
findOutcomes(mvtt(d.pban)) # no possible outcomes at con = cov = 1
findOutcomes(mvtt(d.pban), con = 0.8)
findOutcomes(d.pban, type = "mv", con = 0.8, cov= 0.8)
# FS data
findOutcomes(fstt(d.jobsecurity)) # no possible outcomes at con = cov = 1
findOutcomes(d.jobsecurity, type = "fs", con = 0.86)
# }
Run the code above in your browser using DataLab