Nothing
#' @export
pressc<-function(fit){
x<-cbind( rep(1, nrow(as.matrix(fit$model[,-1])) ),fit$model[,-1] )
x<-as.matrix(x)
h<-x%*%solve(t(x)%*%x)%*%(t(x))
e<-fit$residuals
return(sum( (e/(1-diag(h)))^2 ) )
}
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.