# NOT RUN {
# generate some data and use NPPI to choose block sizes for MBB, SMBB, ETBB, and SETBB.
n <- 50
X1 <- arima.sim(model=list(ar=c(.7,.1)),n)
X2 <- arima.sim(model=list(ar=c(.2,.1)),n)
e <- arima.sim(model=list(ar=c(.7,.1)),n)
Y <- X1 + e
X <- cbind(rep(1,n),X1,X2)
blksize.out <- getNPPIblksizesQR(Y,X,tau=.5)
blksize.out
# }
Run the code above in your browser using DataLab