R/BICZsparse.R

In CorReg: Linear Regression Based on Linear Structure Between Variables

# ' calcul du BIC en format creux
# ' @param Z_Zi numero des lignes des 1 dans la matrice Z
# ' @param vecteur du nombre de 1 dans chaque colonne
# ' @param Bic_vide_vect BIC vectoriel de la matrice nulle
# ' @param BicOld BIC vectoriel de la matrice precedente
# ' @param methode 1:utilisation de la fonction householderQr, 2:utilisation de la fonction colPivHouseholderQr
# ' @param Zold_Sj nombre de 1 dans la colonne de la matrice precedente
# ' @param nrow nombre de ligne de la matrice x
# '
BICZsparse <- function(X = X, Z_Zi = Z_Zi, Z_Sj = Z_Sj, Bic_vide_vect = Bic_vide_vect, BicOld = BicOld, methode = methode, Zold_Sj = Zold_Sj, nrow = nrow) {
  res = .Call("BICZsparse", X, Z_Zi, Z_Sj, Bic_vide_vect, BicOld, methode, Zold_Sj, nrow, PACKAGE = "CorReg")
  return(res$BIC)
}