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)
Run the code above in your browser using DataLab