x <- rnorm(1000)
# For the values of burn and thin below, we should do many more iterations.
# The number of iterations is kept low here due to the run time allowed
# by CRAN.
mod <- evm(x, qu=.7, method="sim", iter=11000)
mod
par(mfrow=c(3, 2))
plot(mod)
mod1 <- thinAndBurn(mod,burn=1000, thin=5)
plot(mod1)
Run the code above in your browser using DataLab