R/estimate.list.R

In lava: Latent Variable Models

##' @export
estimate.list <- function(x,...) {
    if (inherits(x[[1]],"lvm")) return(estimate_lvmlist(x,...))
    res <- lapply(x,function(x) estimate(x,...))
    class(res) <- c("estimate.list","list")
    res
}

##' @export
coef.estimate.list <- function(object,...) {
    lapply(object,coef)
}