R/is.dag.R

In MXM: Feature Selection (Including Multiple Solutions) and Bayesian Networks

Defines functions is.dag

Documented in is.dag

is.dag <- function(dag) {
  if ( any( dag == 2 ) ) {
    dag[ dag != 2 ] <- 0
    dag[ dag == 2 ] <- 1
  } 
  a <- Rfast::topological_sort(dag)
  any( !is.na(a) )
} 
       
     
  
  

Try the MXM package in your browser