# NOT RUN {
mx <- matrix(c(1,0,0,0,0,1,0,-1,0,1,0,0,1,0,0,0,-1,1,1,0,0,0,0,0,0,-2,0,-1,
-1,1,0,0,0,0,1,0,-1,1,0,0,0,0,0,0,-1,0,1,0,-1,0,0,0,0,0,-1,0,1,0,0,-1,0,-1,0)
,byrow=TRUE,nrow=9,ncol=7)
calculate_reaction_vector(mx,TRUE)
# }
Run the code above in your browser using DataLab