print.VARDetect.result | R Documentation |
Print the estimated change points of class VARDetect.result
## S3 method for class 'VARDetect.result' print(x, ...)
x |
a |
... |
not in use |
Print the estimated change points
nob <- 1000 p <- 15 brk <- c(floor(nob / 3), floor(2 * nob / 3), nob + 1) m <- length(brk) q.t <- 1 try <- simu_var('sparse',nob=nob,k=p,lags=q.t,brk=brk,sp_pattern="off-diagonal",seed=1) data <- try$series data <- as.matrix(data) fit <- tbss(data, method = "sparse", q = q.t) print(fit)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.