data("egJofF.1dec93.data", package="dse")
model <- estSSMittnik(egJofF.1dec93.data)
# this prints information about singular values and prompts with
#Enter the number of singular values to use for balanced model:
# the choice is difficult in this example.
model <- estSSMittnik(egJofF.1dec93.data, n=3)
Run the code above in your browser using DataLab