View source: R/Functions_BSS_SGL.R
plot_matrix | R Documentation |
Plot the AR coefficient matrix
plot_matrix(phi, p)
phi |
combined coefficient matrices for all lags |
p |
number of segments times number of lags |
a plot of AR coefficient matrix
nob <- 4 * 10^3
p <- 15
brk <- c(floor(nob / 3), floor(2 * nob / 3), nob + 1)
m0 <- length(brk) - 1
q.t <- 2
m <- m0 + 1
sp_density <- rep(0.05, m*q.t) #sparsity level (5%)
try <- simu_var("sparse", nob = nob, k = p, lags = q.t, brk = brk,
sp_pattern = "random", sp_density = sp_density)
print(plot_matrix(do.call("cbind", try$model_param), m * q.t))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.