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 1, 2019, 11:18 p.m.