Nothing
# ' Bic of one regression
# '
BicLoc<-function(X=X,Y=Y,intercept=T,sigma=T,SumSquare=F,methode=1){
ret= .Call( "BicLoc_cpp", X,Y,intercept,sigma,SumSquare,methode, PACKAGE = "CorReg")
return(ret)
}
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.