R/clm__fitModel__getResidualMatrix.R

Defines functions getResidualMatrix

getResidualMatrix <- function(fit) {
  responseMatrix <- do.call(rbind, lapply(fit$individuals, function(ind) t(ind$yi)))
  residuals <- responseMatrix - fit$fitted

  rownames(residuals) <- paste0("ind", seq(fit$info$N))

  return(residuals)
}
phmpacheco-ufjf/clm documentation built on Dec. 22, 2021, 8:40 a.m.