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.