if (FALSE) {
# load example data
data(examplePBN)
# extract a unique network
# - always use the first function
net <- chooseNetwork(examplePBN, rep(1, length(examplePBN$genes)))
# get attractors from this network
print(getAttractors(net))
}
Run the code above in your browser using DataLab