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