print.swaglm

Print a swaglm object

# S3 method for class 'swaglm'
print(x, ...)

Arguments

x

An object of class swaglm.

...

Additional arguments

Value

None.

Examples

n <- 2000
p <- 50
# create design matrix and vector of coefficients
Sigma <- diag(rep(1/p, p))
X <- MASS::mvrnorm(n = n, mu = rep(0, p), Sigma = Sigma)
beta <- c(-15,-10,5,10,15, rep(0,p-5))
z <- 1 + X%*%beta
pr <- 1/(1 + exp(-z))
y <- as.factor(rbinom(n, 1, pr))
y <- as.numeric(y)-1
quantile_alpha <- .15
p_max <- 20
swag_obj <- swaglm::swaglm(X=X, y = y, p_max = p_max, family = stats::binomial(),
                          alpha = quantile_alpha, verbose = TRUE, seed = 123)
#> Completed models of dimension 1
#> Completed models of dimension 2
#> Completed models of dimension 3
#> Completed models of dimension 4
#> Completed models of dimension 5
#> Completed models of dimension 6
#> Completed models of dimension 7
#> Completed models of dimension 8
print(swag_obj)
#> SWAGLM results :
#> -----------------------------------------
#> Input matrix dimension:  2000 50 
#> Number of explored models:  129 
#> Number of dimensions explored:  8