#######################################
# Example 1
#######################################
reactions <- data.frame(Description = c("Activation", "Deactivation"),
Rate = c("act*A", "deact*pA"), A=c(-1,1), pA=c(1, -1) )
f <- generateEquations(reactions)
f
#######################################
# Example 2
#######################################
reactions <- data.frame(Description = c("Activation", "Deactivation", "Production", "Degradation"),
Rate = c("act*A", "deact*pA", "prod", "degrad*pA"),
A=c(-1,1, 1, NA),
pA=c(1, -1, NA, -1))
volumes <- c(A = "V1", pA = "V2")
f <- generateEquations(reactions, volumes = volumes)
f[1:length(f)]
Run the code above in your browser using DataLab