R/BicTheta.R

In CorReg: Linear Regression Based on Linear Structure Between Variables

# ' calcul du BIC theta
# ' 
BicTheta <- function(X = X, Y = Y, beta = beta, intercept = TRUE) {
  res = .Call("BicTheta", matrix(as.double(X), ncol = ncol(X)), as.double(Y), beta, intercept, PACKAGE = "CorReg")
  return(res$BIC)
}