# NOT RUN {
# GMAR model
fit12 <- fitGSMAR(data=logVIX, p=1, M=2, model="GMAR")
profile_logliks(fit12)
# Non-mixture version of StMAR model
fit11t <- fitGSMAR(logVIX, 1, 1, model="StMAR", ncores=1, ncalls=1)
profile_logliks(fit11t)
# Restricted G-StMAR-model
fit12gsr <- fitGSMAR(logVIX, 1, M=c(1, 1), model="G-StMAR",
restricted=TRUE)
profile_logliks(fit12gsr)
# Extremely large degrees of freedom numerical error demonstration
fit12t <- fitGSMAR(logVIX, 1, 2, model="StMAR", ncores=1,
ncalls=1, seeds=1)
profile_logliks(fit12t, scale=0.00001)
# See the last figure? Surface of the profile log-likelihood function
# should be flat around that large degrees of freedom!
# }
Run the code above in your browser using DataLab