## Not run:
# eq <- NULL
# eq <- addReaction(eq, "A", "B", "k1*A")
# eq <- addReaction(eq, "B", "A", "k2*B")
#
# observables <- eqnvec(Aobs = "alpha * A")
#
# symmetryDetection(eq, observables)
#
# ## End(Not run)
Run the code above in your browser using DataLab