Nothing
#' sg to igraph
#'
#' Obsolete. Use igraph::graph_from_adj_list on the graph edges element.
#' @param g sg object
#' @param x possibly the location pattern
#' @param ... not used
#'
#' Not implemented. You can use the 'graph_from_adj_list'-function in 'igraph'-package on the edges-element of the graph.
#'
#' @examples
#' \dontrun{
#' ix <- igraph::graph_from_adj_list(x$edges)
#' }
#'
#' @export
sg2igraph <- function(g, x, ...) {
warning("Not implemented properly. You can use the 'graph_from_adj_list'-function in 'igraph'-package on the edges-element of the graph.\n Example: igraph::graph_from_adj_list(x$edges)")
NULL
#z <- graph_from_adj_list(g$edges)
#z
}
# sg2igraph<-function(g, x=NULL)
# {
# elist<-NULL
#
# actors <- data.frame(label=as.character((1:g$N)-1))
#
# for(i in 1:g$N)
# {
# if(length(g$edges[[i]]>0))
# {
# a<-cbind(i-1,g$edges[[i]]-1)
# elist<-rbind(elist, a)
# }
# }
#
# elist<-data.frame(from=as.character(elist[,1]), to=as.character(elist[,2]))
#
# if(!is.null(x))
# {
# x <- sg_parse_coordinates(x)
# actors<-data.frame(names=as.character((1:nrow(x))-1), x=x[,1], y=x[,2])
# if(ncol(x)==3) actors$z <- x[,3]
# }
#
# a<-graph.data.frame(elist, vertices=actors, directed=FALSE)
# a$N<-g$N
# a$parameters<-g$parameters
# a$type<-g$type
# a
# }
#
# ####################
# igraph2sg<-function(g)
# {
# b<-get.adjlist(g)
# for(i in 1:length(b))
# b[[i]]<-union(b[[i]]+1,NULL)
#
# as.sg(b, type=g$type, pars=g$parameters, note="coverted from igraph-object")
# }
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.