## Not run:
#
# # Generate data from a model with moderate time variation in the parameters
# # and error term variances
# set.seed(5813)
# sim <- sim.var1.sv.tvp(Q = 1e-5*diag(6), S = 1e-5*diag(1), W = 1e-5*diag(2))
# # Plot both series
# matplot(sim$data, type = "l")
# # Plot AR(1) parameters of both equations
# matplot(cbind(sim$Beta[1,2,], sim$Beta[2,3,]), type = "l")
#
# ## End(Not run)
Run the code above in your browser using DataLab