reactions <- data.frame(Description = c("Activation", "Deactivation"),
Rate = c("act*A", "deact*pA"), A=c(-1,1), pA=c(1, -1))
f <- generateEquations(reactions)
myobs <- c(tA = "s1*(pA + A)", dA = "s2*(pA-A)")
f <- addObservable(myobs, f)
Run the code above in your browser using DataLab