data(total)
plot(xVUM3)
## only one envelope corresponding to quantiles 0.025 and 0.975
plot(xVUM3, lim=c(0.025, 0.975))
## only one envelope not painted
plot(xVUM3, lim=c(0.025, 0.975), paint=FALSE)
def.par <- par(no.readonly = TRUE)
par(mar=c(4, 4, 1, 1))
plot(total)
par(def.par)
Run the code above in your browser using DataLab