UmbrellaExperimentProbeRandomData: umbrella::UmbrellaExperimentProbeRandomData()

In ultraviolet-1986/umbrella: Umbrella: A Biased Generic Random Walk Algorithm for Community Detection

Usage

UmbrellaExperimentProbeRandomData()

Examples

##---- 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 ()
{
    print("########## EXPERIMEMT ##########")
    setwd("~/")
    test_data <- umbrella::GenerateRandomNetwork(to_file = TRUE)
    test_data <- umbrella::AnalyseData(test_data, draw_graph = TRUE)
    print("TEST: Performing random walk on testing data.")
    test_random_walk <- igraph::random_walk(test_data$dataset,
        start = 1, steps = 10, mode = "all")
    print(test_random_walk)
    print("TEST: Output an adjacency edge list of the network data.")
    print(igraph::as_adj_edge_list(test_data$dataset))
    test_random_walk <- igraph::graph_from_adj_list(test_random_walk)
    test_random_walk <- simplify(test_random_walk)
    print("TEST: Plotting random walk on testing data.")
    igraph::plot.igraph(test_random_walk, main = "Random Walk Graph / UmbrellaExperimentProbeRandomData()",
        sub = paste("Umbrella", packageVersion("umbrella")))
    print("TEST: Return data as graph object.")
    print(test_data)
    invisible(test_data)
  }

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