R/coef.cv.gcdclust.R

Defines functions coef.cv.gcdclust

Documented in coef.cv.gcdclust

coef.cv.gcdclust <- function(object, s = c("lambda.1se", 
    "lambda.min"), ...) {
    if (is.numeric(s)) 
        lambda <- s else if (is.character(s)) {
        s <- match.arg(s)
        lambda <- object[[s]]
    } else stop("Invalid form for s")
    coef(object$gcdclust.fit, s = lambda, ...)
} 
KarimOualkacha/HHSVM-ClusterNet documentation built on May 7, 2019, 12:28 p.m.