Nothing
# ' 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.