# NOT RUN {
net <- BoolNet::generateRandomNKNetwork(10, 2)
attractors <- BoolNet::getAttractors(net)
ATM <- getATM(net, attractors)
TESs <- getTESs(ATM)
saveDifferentiationTreeToFile(TESs, tempfile(tmpdir = tempdir(), fileext = ".svg"))
# }
Run the code above in your browser using DataLab