R/clm__fitModel__addFittedToIndividualsList.R

Defines functions addFittedToIndividualsList

addFittedToIndividualsList <- function(fit) {
  individuals <- fit$individuals %>%
    rlist::list.map(rlist::list.append(., mui = xi %*% fit$coefficients))

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