powered by
pistonSimulation(seed=123)
data(OTURB1)
pistonSimulation
data(OTURB1) REF <- round(pistonSimulation(seed=123)$seconds, 3) plot(OTURB1, type="b", lwd=6) lines(REF, col=2, lwd=2) sum(OTURB1 - REF)
Run the code above in your browser using DataLab