# NOT RUN {
if (require("KEGGgraph")) {
kegg.g <- getKEGGPathway("map04115")$graph
# Create some toy data with the correct names
Y <- createS(n = 10, p = numNodes(kegg.g), dataset = TRUE)
colnames(Y) <- nodes(kegg.g)
T <- kegg.target(Y, "map04115")
print(T[1:10, 1:10])
}
# }
Run the code above in your browser using DataLab