if (FALSE) {
# load example data
data(cellcycle)
# knock out gene CycD (index 1)
net <- fixGenes(cellcycle, 1, 0)
# or
net <- fixGenes(cellcycle, "CycD", 0)
# get attractors by exhaustive search
attractors <- getAttractors(net)
print(attractors)
}
Run the code above in your browser using DataLab