R/runNonparaFCI.R

Defines functions runNonparanormalFCI

runNonparanormalFCI <- function(X, parentsOf, alpha, variableSelMat, setOptions, directed, verbose, 
                               ...){
  
  suffStat.data <- list(C=2*sin(cor(X,method="spearman")*pi/6), n=nrow(X))
  setOptions$indepTest <- pcalg::gaussCItest

  runFCI(X, suffStat.data, parentsOf, alpha, variableSelMat, setOptions, 
        directed, verbose, ...)
}

Try the CompareCausalNetworks package in your browser

Any scripts or data that you put into this service are public.

CompareCausalNetworks documentation built on April 14, 2020, 7:31 p.m.