Nothing
integrator2<-function(init,l,m,psi,times){
ode<-function(times,y,p){
lambda11<-p[1]
lambda12<-p[2]
lambda21<-p[3]
lambda22<-p[4]
mu1<-p[5]
mu2<-p[6]
psi1<-p[7]
psi2<-p[8]
yd1<-mu1-(lambda11+lambda12+mu1+psi1)*y[1]+lambda11*y[1]*y[1]+lambda12*y[1]*y[2]
yd2<-mu2-(lambda21+lambda22+mu2+psi2)*y[2]+lambda21*y[1]*y[2]+lambda22*y[2]*y[2]
list(c(yd1,yd2))
}
p<-c(l,m,psi)
out<-lsoda(init,times,ode,p)[2,2:3]
out
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.