# Don't test on CRAN as complains about parallelisation
data("exchange")
model <- svm(exchange, rho = uniform(0.97,-0.999,0.999),
sd_ar = halfnormal(0.175, 2), mu = normal(-0.87, 0, 2))
out <- particle_smoother(model, particles = 500)
plot.ts(cbind(model$y, exp(out$alphahat)))
Run the code above in your browser using DataLab