# NOT RUN {
nodes=paste("node", c(1:10))
set.seed(123)
randomGO=c("A", "B", "C")[sample(c(1:3), 10, replace=TRUE)]
names(randomGO)=nodes
edgesRandom=sapply(c(1:100), function(i){
nodes[sample(10, 2)]
})
pafway(randomGO, t(edgesRandom), unique(randomGO))
# }
Run the code above in your browser using DataLab