# \donttest{
# Find and evaluate significantly perturbed paths
# Nonparanormal(npn) transformation
als.npn <- transformData(alsData$exprs)$data
adjData <- SEMbap(alsData$graph, als.npn)$data
paths <- pathFinder(alsData$graph, adjData,
group = alsData$group,
ace = NULL)
print(paths$dfp)
head(parameterEstimates(paths$fit[[1]]))
gplot(paths$paths[[1]])
# }
Run the code above in your browser using DataLab