ns <- if(interactive()) 19 else 4
E <- bits.envelope(swedishpines, Lest, nsim=ns)
E
plot(E)
Eo <- bits.envelope(swedishpines, Lest, alternative="less", nsim=ns)
Ei <- bits.envelope(swedishpines, Lest, interpolate=TRUE, nsim=ns)
Run the code above in your browser using DataLab