powered by
envelope(x)
data(CE1) ev = envelope(CE1$y) plot(CE1$x, CE1$y, type='l') lines(CE1$x,ev, col='red')
Run the code above in your browser using DataLab