# NOT RUN {
# }
# NOT RUN {
### Learn the cytometry network
library(sparsebn)
data(cytometryContinuous) # from the sparsebn package
cyto.data <- sparsebnData(cytometryContinuous[["data"]], type = "continuous")
cyto.learn <- estimate.dag(cyto.data)
### Inspect the output
class(cyto.learn)
print(cyto.learn)
plot(cyto.learn)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab