# NOT RUN {
(cco.irrigate <- conCovOpt(d.irrigate))
conCovOpt(d.irrigate, outcome = c("R","W"))
# Plot method.
plot(cco.irrigate)
plot(cco.irrigate, con = .8, cov = .8)
dat1 <- d.autonomy[15:30, c("EM","SP","CO","AU")]
(cco1 <- conCovOpt(dat1, type = "fs", outcome = "AU"))
print(cco1, digits = 3, row.names = TRUE)
plot(cco1)
# Exo-groups (configurations with constant values in all factors other than the outcome).
attr(cco1$A, "exoGroups")
# Rep-list (list of values optimally reproducing the outcome).
attr(cco1$A, "reprodList")
# allConCov (add all possible con-cov scores, not just optimal ones).
cco1_acc <- conCovOpt(dat1, type = "fs", outcome="AU", allConCov = TRUE)
attr(cco1_acc$A, "allConCov")
# If the allConCov table has been built, it is passed to the output of selectMax().
sm1 <- selectMax(cco1_acc)
attr(sm1$A, "allConCov")
dat2 <- d.pacts
# Maximal number of combinations exceeds maxCombs.
(cco2 <- conCovOpt(dat2, type = "fs", outcome = "PACT")) # Generates a warning
# Increase maxCombs.
# }
# NOT RUN {
(cco2_full <- try(conCovOpt(dat2, type = "fs", outcome = "PACT",
maxCombs=1e+08))) # Takes long or fails due to memory shortage
# }
# NOT RUN {
# Approximate an exhaustive search.
(cco2_approx <- conCovOpt(dat2, type = "fs", outcome = "PACT", approx = TRUE))
# }
Run the code above in your browser using DataCamp Workspace