R/utils.R

In NetSim: A Social Networks Simulation Tool in R

# TODO: Add comment
# 
# Author: cws
###############################################################################


reset_random_seed <- function(seed){
	if (seed < 0) stop("Seed must be a positive integer")
	.Call("reset_random_seed", seed, PACKAGE = "NetSim")
}

get_random_seed <- function(){
	.Call("get_random_seed", PACKAGE = "NetSim")
}

as.igraph.NetSimNetwork <- function(x, mode = c("directed", "undirected"), ...){
	if (!require(igraph))
		stop("Library igraph needs to be installed. Try 'install.packages(\"igraph\")'")
	iGraph <- igraph::graph.adjacency(as.matrix(x), mode = mode[1], diag = FALSE)
	return(iGraph)
}