data(smi.stocks)
## Multivariate fit
fit.mv <- fit.hypmv(smi.stocks, nit = 10)
AIC(fit.mv)
logLik(fit.mv)
## Univariate fit
fit.uv <- fit.tuv(smi.stocks[, "CS"], control = list(maxit = 10))
AIC(fit.uv)
logLik(fit.uv)
# Both together
AIC(fit.uv, fit.mv)
logLik(fit.uv, fit.mv)
Run the code above in your browser using DataLab