R/BIC.dglars.R

In dglars: Differential Geometric Least Angle Regression

Defines functions BIC.dglars

Documented in BIC.dglars

BIC.dglars <- function(object, ...){
    arg <- names(list(...))
    if("k" %in% arg) out_aic <- AIC(object, ...)
    else{
        logn <- log(dim(object$X)[1L])
        out_aic <- AIC(object, k = logn, ...)
        out_aic$type <- "BIC"
    }
    out_aic
}

Try the dglars package in your browser