R/1.2.addFittedToIndividualsList.R

Defines functions addFittedToIndividualsList

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

  return(individuals)
}

Try the Mmcsd package in your browser

Any scripts or data that you put into this service are public.

Mmcsd documentation built on March 31, 2023, 7:23 p.m.