# \donttest{
# These are long running example that take approximately 15 seconds to run.
fit42t <- fitGSMAR(data=M10Y1Y, p=4, M=2, model="StMAR", ncalls=1, seeds=6)
fit42t # Overly large degrees of freedom estimate!
# Switch to the appropriate G-StMAR model:
fit42gs <- stmar_to_gstmar(fit42t)
fit42gs
# }
Run the code above in your browser using DataLab