R/1.2.1.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)
}

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.