GDS/util_DAGs/containsCycle.R

In WY-Chen/EqVarDAG: Causal Discovery with Equal Variance Assumption

containsCycle <- function(Adj)
# Copyright (c) 2010 - 2012  Jonas Peters  [peters@stat.math.ethz.ch]
# All rights reserved.  See the file COPYING for license terms. 
{
    ifelse(sum(abs(eigen(Adj)$values) > 10^(-10)) > 0, TRUE, FALSE)    
}