Print Method for boot_glasso
Usage
# S3 method for class 'boot_glasso'
print(x, ...)Examples
set.seed(1)
dat <- as.data.frame(matrix(rnorm(60), ncol = 3))
bg <- boot_glasso(dat, iter = 10, cs_iter = 5, centrality = "strength")
print(bg)
#> GLASSO Bootstrap (10 iterations, 5 case-drop per proportion)
#> Data: 20 x 3 | Alpha: 0.05 | Gamma: 0.50
#> Edges: 0/3 significant (CI excludes zero)
#> Mean inclusion probability: 0.63
#>
#> Centrality Stability (CS-coefficient):
#> strength: 0.00 [Unstable]
#>
#> Edge differences: 2/3 pairs significantly different
#> Timing: 0.4s (bootstrap: 0.2s, case-drop: 0.1s)
# \donttest{
set.seed(42)
mat <- matrix(rnorm(60), ncol = 4)
colnames(mat) <- LETTERS[1:4]
boot <- boot_glasso(as.data.frame(mat), iter = 20, cs_iter = 10,
centrality = "strength", seed = 42)
print(boot)
#> GLASSO Bootstrap (20 iterations, 10 case-drop per proportion)
#> Data: 15 x 4 | Alpha: 0.05 | Gamma: 0.50
#> Edges: 0/6 significant (CI excludes zero)
#> Mean inclusion probability: 0.34
#>
#> Centrality Stability (CS-coefficient):
#> strength: 0.00 [Unstable]
#>
#> Edge differences: 1/15 pairs significantly different
#> Timing: 1.3s (bootstrap: 0.8s, case-drop: 0.5s)
# }