# NOT RUN {
## data("CE1.Example.RDATA")
## load("CE1.Example.RDATA")
data(CE1)
plot(CE1$x, CE1$y, type='l')
wiggle.env(CE1$x, CE1$y)
we = wiggle.env(CE1$x, CE1$y)
lines(we$x, we$y, col='red')
# }
Run the code above in your browser using DataLab