R/to_graph_S3methods.R

In cglasso: Conditional Graphical LASSO for Gaussian Graphical Models with Censored and Missing Values

Defines functions plot.cglasso2igraph print.cglasso2igraph is.cglasso2igraph

Documented in is.cglasso2igraph plot.cglasso2igraph print.cglasso2igraph

is.cglasso2igraph <- function(x) inherits(x, 'cglasso2igraph')

print.cglasso2igraph <- function(x, ...) print.listof(x, ...)

plot.cglasso2igraph <- function(x, type, ...){
    op <- par(no.readonly = TRUE)
    on.exit(par(op), add = TRUE)
    if(missing(type)) type <- ifelse(is.null(x$Gxy), "Gyy", "both")
    gr <- getGraph(x, type = type)
    opt <- list(...)
#    if(is.null(opt$layout)) opt$layout <- layout_with_kk
    do.call(function(...) plot(gr, ...), opt)
    invisible(NULL)
}

Try the cglasso package in your browser