reccusum <- stability(varsimest,
    type = "OLS-CUSUM")
fluctuation <- stability(varsimest,
    type = "fluctuation")