Displaying 1 result from an estimated 1 matches for "diffeqfun".
2013 Jan 03
1
R2OpenBUGS question with differential equations
Dear All,
Currently I am running the following code:
library(stats4)
library(odesolve)
library(rgenoud)
Input<-data.frame(SUB=c(1),time=c(0.5,3,10,15),lev=c(2.05,12.08,9.02,8))
XD<-500
IT<-3
diffeqfun<-function(time, y, parms) {
if(time<=IT)
dCpdt <- (XD/IT)/parms["Vol"] - (parms["Vm"]/parms["Vol"])*y[1]/(parms["Km"]/parms["Vol"]+y[1])
else
dCpdt <- -(parms["Vm"]/parms["Vol"])*y[1]/(parms["Km&q...