## Data
data(ecoli)
ecoli <- ecoli[,-1] ## Sequence Name
## DAG1
dag1 <- getStructure(ecoli, method = "HC")
dag1
plot(dag1)
## DAG2
dag2 <- getStructure(ecoli, method = "TAN", target = "mcg")
dag2
plot(dag2)
Run the code above in your browser using DataLab