data("stock_uni")
params_uni <- list(a = 1,
b = 1,
c = 1,
phi = 0.1)
out <- clust_cp(data = stock_uni[1:3,], n_iterations = 1000, n_burnin = 100,
L = 1, q = 0.5, B = 500, params = params_uni, kernel = "ts")
plot(out)
Run the code above in your browser using DataLab