Grplasso как модель GLM

Question

У меня много проблем с пакетом grplasso.Когда я хочу вычислить AIC, у меня была эта ошибка.Как извлечь модель GLM из функции grplasso?

data(splice)

## Define a list with the contrasts of the factors

    contr <- rep(list("contr.sum"), ncol(splice) - 1)
    names(contr) <- names(splice)[-1]

## Fit a logistic model 
fit.splice <- grplasso(y ~ ., data = splice, model = LogReg(), lambda = 20, center = TRUE, standardize = TRUE)

AIC(fit.splice)

Ошибка в UseMethod ("logLik"): нет применимого метода для logLik, примененного к объекту класса "grplasso"