GenerateRandomNetwork: umbrella::GenerateRandomNetwork()

Usage Arguments Examples

View source: R/umbrella_module_generate_random_network_file.R

Usage

1
GenerateRandomNetwork(nodes = 25, to_file = c(TRUE, FALSE))

Arguments

nodes
to_file

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (nodes = 25, to_file = c(TRUE, FALSE))
{
    umbrella_random_network_file <- "umbrella_random_network.txt"
    umbrella_random_network <- igraph::erdos.renyi.game(nodes,
        0.33)
    if (isTRUE(to_file)) {
        if (file.exists(umbrella_random_network_file)) {
            print(paste("NOTE: Existing network file detected and will be",
                "overwritten."))
        }
        igraph::write_graph(umbrella_random_network, file = umbrella_random_network_file,
            format = "edgelist")
        print(paste("NOTE: Random network file '", umbrella_random_network_file,
            "' has been written", sep = ""))
    }
    invisible(umbrella_random_network)
  }

ultraviolet-1986/umbrella documentation built on July 20, 2020, 9:02 p.m.