powered by
50 cycle times (in \(s\))of a piston gerated with pistonSimulation(seed=123). Cycle times are rounded to 3 decimals.
pistonSimulation(seed=123)
data(OTURB1)
See pistonSimulation
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