Cacher is the code snippet organizer for pro developers

install.packages("bnlearn")
library(bnlearn)
mapKNodes <- c("E1", "E2", "K", "K.ase", "K.p", "K.pp", "KK", "KK.ase", "KK.p", "KK.pp", "KKK", "KKK.star")
mapkBN <- empty.graph(nodes = mapKNodes)
arcs(mapkBN) <- matrix(ncol= 2, byrow = T, data= c("E2", "KKK",
                                                   "E2", "KKK.star",
                                                   "E1", "KKK",
                                                   "E1", "KKK.star",
                                                   "KKK.star", "KK",
                                                   "KKK.star", "KK.p",
                                                   "KKK.star", "KK.pp",
                                                   "KK.ase", "KK",
                                                   "KK.ase", "KK.p",
                                                   "KK.ase", "KK.pp",
                                                   "KK.pp", "K",
                                                   "KK.pp", "K.p",
                                                   "KK.pp", "K.pp",
                                                   "K.ase", "K",
                                                   "K.ase", "K.p",
                                                   "K.ase", "K.pp"))
graphviz.plot(mapkBN)