predplot=function(process){ tim=process$time x=process$x y=process$y n=length(tim) tmax=tim[n]*(1+1/n) tima=tim[2:n] time=c(tim[1],as.vector(t(cbind(tima,tima))),tmax) spx=as.vector(t(cbind(x,x))) plot(time,spx,type="l") spy=as.vector(t(cbind(y,y))) plot(time,spy,type="l") plot(c(min(x),max(x)),c(min(y),max(y)),type="n",xlab="x",ylab="y") lines(x,y)}