R/summary.gslcca.R

In gslcca: Generalized Semi-Linear Canonical Correlation Analysis

summary.gslcca <- function(object, ...){
    opt.value <- sapply(object$opt, "[[", "value")
    opt.iter <- sapply(object$opt, function(x) x$counts[1])
    opt.conv <- sapply(object$opt, "[[", "convergence")
    names(opt.value) <- names(opt.iter) <- names(opt.conv) <- colnames(object$xcoef)
    res <- list(call = object$call,
                global.smooth = object$global.smooth,
                subject.smooth = object$subject.smooth,
                pct.explained = object$pct.explained,
                nonlinear.parameters = object$nonlinear.parameters,
                cor = object$cor,
                opt.value = opt.value,
                opt.iter = opt.iter,
                opt.conv = opt.conv)
    class(res) <- "summary.gslcca"
    res
}