## Generate two evolutionary sequences (time-series)
x1 <- paleoTS::sim.Stasis(60, vp=1)
x2 <- paleoTS::sim.Stasis(60, vp=1)
## Make a multivariate data set
x1_x2<-make.multivar.evoTS(x1, x2)
## Plot the data
plotevoTS.multivariate(x1_x2, y_min=-1, y_max=1)
Run the code above in your browser using DataLab