# NOT RUN {
##------------------------------------------------------------##
## A simple four node network ##
##------------------------------------------------------------##
viableNodesRangeTest <- flowLimit(limfile = N4,limList = N4LIM,
flow = "Pgraz",minVal = 50, maxVal = 300)
viableNodesMinTest <- flowLimit(limfile = N4,limList = N4LIM,
flow = "Pgraz",minVal = 50)
viableNodesMaxTest <- flowLimit(limfile = N4,limList = N4LIM,
flow = "Pgraz",maxVal = 300)
# }
Run the code above in your browser using DataLab