Description Usage Arguments Examples
Function that changes all undirected edges into directed edges. The edges are directed as abs_group1 –> abs_group2.
1 | change_direction(pdag, abs_group1, abs_group2)
|
pdag |
|
abs_group1 |
|
abs_group2 |
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)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.