Nothing
predict.lspcr.glm<-function(object,newX,newD,...){
etaT=cbind(rep(1,dim(newD)[1]),newD,newX%*%object$projection)%*%object$coefficients
piT=1/(1+exp(-etaT))
YT=(etaT>0)+0
return(list(newY=YT,newPi=piT))
}
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.