# NOT RUN {
dat1 <- d.autonomy[15:30, c("EM","SP","CO","AU")]
(cco1 <- conCovOpt(dat1, type = "fs", outcome = "AU"))
selectMax(cco1)
selectMax(cco1, cond = quote(con > 0.95))
selectMax(cco1, cond = quote(cov > 0.98))
selectMax(cco1, crit = quote(pmin(con, cov)))
selectMax(cco1, crit = quote(pmax(con, cov)), cond = quote(cov > 0.9))
# Multiple equally good maxima.
(cco2 <- conCovOpt(dat1, type = "fs", outcome = "AU", allConCov = TRUE))
(sm2 <- selectMax(cco2, cond = quote(con > 0.93)))
multipleMax(sm2, "AU")
# Each maximum corresponds to a different rep-assignment, which can be selected
# using the id argument.
reprodAssign(sm2, "AU", id = 10)
reprodAssign(sm2, "AU", id = 11)
reprodAssign(sm2, "AU", id = 13)
# }
Run the code above in your browser using DataCamp Workspace