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