data(smi.stocks)
multivariate.fit <- fit.ghypmv(data = smi.stocks,
opt.pars = c(lambda = FALSE, alpha.bar = FALSE),
lambda=2)
summary(multivariate.fit)
vcov(multivariate.fit)
mean(multivariate.fit)
logLik(multivariate.fit)
AIC(multivariate.fit)
coef(multivariate.fit)
univariate.fit <- multivariate.fit[1]
hist(univariate.fit)
plot(univariate.fit)
lines(multivariate.fit[2])
Run the code above in your browser using DataLab