data(SDEsim4)
attach(SDEsim4)
# Have a look at the time series:
plot(Xt~time,type='l',col='blue',ylim=c(0,25),main='Simulated Data',
xlab='Time (t)',ylab='State',axes=FALSE)
lines(Yt~time,col='red')
axis(1,seq(0,100,5))
axis(1,seq(0,100,5/10),tcl=-0.2,labels=NA)
axis(2,seq(0,25,2))
axis(2,seq(0,25,2/10),tcl=-0.2,labels=NA)
Run the code above in your browser using DataLab