R/sg2igraph.R

In spatgraphs: Graph Edge Computations for Spatial Point Patterns

#' 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")
# }