Get the indices of non-zero variables from msaenet model objects.

msaenet.nzv(object)

Arguments

object

An object of class msaenet produced by aenet, amnet, asnet, msaenet, msamnet, or msasnet.

Value

Indices vector of non-zero variables in the model.

Examples

dat <- msaenet.sim.gaussian( n = 150, p = 500, rho = 0.6, coef = rep(1, 5), snr = 2, p.train = 0.7, seed = 1001 ) msaenet.fit <- msaenet( dat$x.tr, dat$y.tr, alphas = seq(0.2, 0.8, 0.2), nsteps = 3L, seed = 1003 ) msaenet.nzv(msaenet.fit)
#> [1] 2 4 5 35 114 269 363 379
# coefficients of non-zero variables coef(msaenet.fit)[msaenet.nzv(msaenet.fit)]
#> [1] 2.1596092 1.7757423 0.8133695 0.8995040 -0.2976662 0.7166366 -0.4738523 #> [8] -0.2338791