change_direction: change_direction

Description Usage Arguments Examples

Description

Function that changes all undirected edges into directed edges. The edges are directed as abs_group1 –> abs_group2.

Usage

1
change_direction(pdag, abs_group1, abs_group2)

Arguments

pdag
abs_group1
abs_group2

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (pdag, abs_group1, abs_group2)
{
    for (i in seq_along(abs_group1)) {
        a <- abs_group1[i]
        b <- abs_group2[i]
        if (pdag[a, b] == 1 & pdag[b, a] == 1) {
            pdag[b, a] <- 0
        }
    }
    return(pdag)
  }

gekepals/pcabs documentation built on June 15, 2019, 12:03 a.m.