inst/snippet/lm-demo-matrix2.R

X <- model.matrix(model); X             
# hat matrix
X %*% solve(t(X) %*% X) %*% t(X)  

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 2, 2019, 5:53 p.m.