R/score.biprobit.R

Defines functions score.biprobit

##' @export
score.biprobit <- function(x,indiv=FALSE,...) {
  if (indiv) { s <- x$score; attributes(s)$logLik <- NULL; return(s) }
  colSums(x$score)
}
kkholst/mets documentation built on April 24, 2024, 11:33 a.m.