deprecated/IUCMST.R

In byandell/CausalMST: Causal Model Selection Hypothesis Tests

#' @export
IUCMST <- function(models, ...) {
  result <-
    dplyr::inner_join(
      dplyr::rename(
        normIUCMST(models),
        alt.norm = alt,
        norm = pv),
      dplyr::rename(
        normJointIUCMST(models),
        alt.joint = alt,
        normJoint = pv),
      by = "ref")
  result <- 
    dplyr::inner_join(
      result,
      dplyr::rename(
        binomIUCMST(models),
        alt.binom = alt,
        binom = pv),
      by = "ref")
  result <- 
    dplyr::inner_join(
      result,
      dplyr::rename(
        wilcIUCMST(models),
        alt.wilc = alt,
        wilc = pv),
      by = "ref")
  dplyr::select(
    result,
    ref, norm, normJoint, binom, wilc, alt.norm, alt.joint, alt.binom, alt.wilc)
}