if(is.R()) data("eg1.DSE.data.diff", package="dse1")
model <- toSS(TSmodel(estVARXls(eg1.DSE.data.diff)))
newmodel <-balanceMittnik(model)
# this prints information about singular values and prompts with
#Enter the number of singular values to use for balanced model:
# 18 might be a good choice in this example.
newmodel <-balanceMittnik(model, n=18)
Run the code above in your browser using DataLab