R/BicTheta.R

Defines functions BicTheta

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

Try the CorReg package in your browser

Any scripts or data that you put into this service are public.

CorReg documentation built on Sept. 6, 2019, 3 a.m.