R/get.resids.R

get.resids <-
function (Y, mod) 
{
  Y - t(mod %*% solve(t(mod) %*% mod) %*% t(mod) %*% t(Y))
}
Sage-Bionetworks/snm documentation built on May 9, 2019, 12:14 p.m.