R/clm__fitModel__getFittedMatrix.R

Defines functions getFittedMatrix

getFittedMatrix <- function(fit) {
  fitted <- do.call(rbind, lapply(fit$individuals, function(ind) t(ind$xi %*% fit$coefficients)))

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

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