# NOT RUN {
## Data
data(ecoli)
data <- ecoli[,-c(1,9)] ## remove sequece.name and class
## DAG
dag <- LearningHC(data)
plot(dag)
getChildParentsFromGraph(dag)
## 1. Random sample
parents <- "mcg"
child <- "alm1"
n <- 1000
rnormMultiv(n, dataParents = data.frame(data[,parents]), dataChild = data[,child])
## 2. Random sample
parents <- "alm1"
child <- "aac"
n <- 256
rnormMultiv(n, dataParents = data.frame(data[,parents]), dataChild = data[,child])
# }
Run the code above in your browser using DataLab