Print an ssjgl object

Usage

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

Arguments

x: An object of class ssjgl.
...: Additional arguments (ignored).

Value

Invisible x.

Examples

sim <- simulate_ssjgl_data(K = 2, p = 10, n = 50, seed = 1)
fit <- ssjgl(sim$data_list, penalty = "fused",
             lambda0 = 1, lambda1 = 0.5, lambda2 = 0.5,
             v0s = 0.01, maxitr.em = 10, impute = FALSE)
#> Ladder= 1 v0 = 0.01 done. Time: 0
print(fit)
#> Spike-and-Slab Joint Graphical Lasso (SSJGL)
#>   Groups (K): 2
#>   Variables (p): 10
#>   v0 ladder steps: 1
#>   Total EM iterations: 10
#>   Total time: 0.1 seconds
#>   Group 1: 26 non-zero edges (from precision)
#>   Group 2: 26 non-zero edges (from precision)
#>   Edges with P(inclusion) > 0.5: 26