## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  include= TRUE, eval = FALSE,
  comment = "#>"
)
library(MVNGmod)

## -----------------------------------------------------------------------------
# MVVGmod(Y,X, theta_g = theta_mvvg, stopping = 0.001, max_iter = 50)

## -----------------------------------------------------------------------------
# MVNIGmod(Y, X, theta_g = theta_mvnig, stopping = 0.001, max_iter = 50)

## -----------------------------------------------------------------------------
# mod <- MVNIGmod(Y, X, theta_mvnig)
# case_del(Y, X, mod)

## -----------------------------------------------------------------------------
# mvnig_mod <- MVNIGmod(Y, X, theta_mvnig)
# predict(mvnig_mod, X)