"graph2igraph" <-
function(g)
  {
    require(igraph, quietly=TRUE)

    g.adj <- as.matrix(graph2SparseM(g))
    g.graph <- graph.adjacency(g.adj,mode="undirected")

    return(g.graph)
  }