Nothing
#' @rdname to_network_networkLite
#'
#' @title Convert a `networkLite` object to a `network` object
#'
#' @param x A `networkLite` object.
#' @param ... additional arguments.
#'
#' @details
#' The `to_network_networkLite` function takes a `networkLite` and returns a
#' corresponding `network`.
#'
#' The `as.network.networkLite` method returns the `networkLite` unchanged, for
#' compatibility with `ergm`.
#'
#' @return
#' For `to_network_networkLite`, a `network` object corresponding to `x` is returned. For
#' `as.network.networkLite`, the `networkLite` `x` is returned unchanged.
#'
#' @seealso [`as.networkLite`]
#'
#' @export
#'
to_network_networkLite <- function(x, ...) {
nw <- network.initialize(network.size(x),
directed = x %n% "directed",
bipartite = x %n% "bipartite")
el <- as.edgelist(x, na.rm = FALSE)
nw <- add.edges(nw, el[, 1], el[, 2])
for (name in list.vertex.attributes(x)) {
value <- get.vertex.attribute(x, name, null.na = FALSE, unlist = FALSE)
set.vertex.attribute(nw, name, value)
}
for (name in list.network.attributes(x)) {
value <- get.network.attribute(x, name)
set.network.attribute(nw, name, value)
}
eids <- unlist(lapply(seq_len(NROW(el)),
function(index) get.edgeIDs(nw, el[index, 1], el[index, 2], na.omit = FALSE)))
for (name in list.edge.attributes(x)) {
value <- get.edge.attribute(x, name, null.na = FALSE, unlist = FALSE)
set.edge.attribute(nw, name, value, eids)
}
for (name in setdiff(names(attributes(x)), c("class", "names"))) {
attr(nw, name) <- attr(x, name)
}
nw
}
#' @rdname to_network_networkLite
#' @export
as.network.networkLite <- function(x, ...) {
return(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.