inst/doc/glmaag.R

In glmaag: Adaptive LASSO and Network Regularized Generalized Linear Models

## ------------------------------------------------------------------------
library(glmaag)
data(sampledata)
data(L0)
y <- sampledata$Y_Gau
x <- as.matrix(sampledata[, -(1:3)])
mod <- cv_glmaag(y, x, L0)

## ------------------------------------------------------------------------
L1 <- getS(x)

## ------------------------------------------------------------------------
mod <- cv_glmaag(y, x)

## ------------------------------------------------------------------------
mod <- cv_glmaag(y, x, est = F)

## ------------------------------------------------------------------------
L <- tune_network(y, x, L0, L1)@est

## ------------------------------------------------------------------------
mod <- cv_glmaag(y, x, L0, tune = T)

## ------------------------------------------------------------------------
mod <- ss_glmaag(y, x, L0, nsam = 5)

## ------------------------------------------------------------------------
coeffi <- coef(mod)
ypre <- predict(mod)
evaluate(ypre, y)
evaluate_plot(ypre, y)