Nothing
R/9_pressc.R
In ALSM: Companion to Applied Linear Statistical Models
#' @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 ) )
}
Try the ALSM package in your browser
Any scripts or data that you put into this service are public.
ALSM documentation built on May 2, 2019, 10:19 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#' @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 ) )
}
Try the ALSM package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.