if (FALSE) {
# generate a random network with canalyzing functions
net1 <- generateRandomNKNetwork(n=10, k=5,
functionGeneration="generateCanalyzing")
print(net1)
# generate a random network with nested canalyzing functions
net2 <- generateRandomNKNetwork(n=10, k=5,
functionGeneration="generateNestedCanalyzing")
print(net2)
}
Run the code above in your browser using DataLab