Last chance! 50% off unlimited learning
Sale ends in
if (FALSE) {
data(CE1)
ex <- CE1$x[CE1$x>5.453291 &CE1$x< 5.507338]
why <- CE1$y[CE1$x>5.453291 &CE1$x< 5.507338]
plot(ex, why, type='l')
tung.pulse(ex, why, CE1$dt)
}
Run the code above in your browser using DataLab