if (FALSE) {
data(exrates)
dat <- logret(exrates$USD, demean = TRUE) ## de-meaned log-returns
res <- svsample(dat) ## run MCMC sampler
plot(res, forecast = 100) ## display results
}
Run the code above in your browser using DataLab