compute_voronoi_neighbours: Compute Voronoi neighbours of antenna sites.

In bogdanoancea/simutils: Basic functionalities to deal with simulated mobile network data

Compute Voronoi neighbours of antenna sites.

Description

Find neighbours of antennas and number of neighbours for each antenna in addition to the distance matrix. If latlong is TRUE then it returns the distance matrix in km.

Usage

compute_voronoi_neighbours(simData, PLOT = FALSE, latlong = FALSE, R = 6371)

Arguments

simData	list with components map, network, coverage, grid, individuals as output by function read_simData.
PLOT	logical (default FALSE) to indicate whether to plot the tesselation or not.
latlong	logical (default FALSE) to indicate whether x and y refer to longitude and latitude.
R	numeric vector of lenght 1 denoting the Earth's radius in km.

Value

list with: Adj - Adjacency matrix NumN - number of neighbours per antenna D - Distance matrix

Examples

filename_map <- c(
  xml = system.file("extdata/input_files", "map.xml", package = "simutils"),
  xsd = ""
)

filename_network <- c(
  csv = system.file("extdata/output_files/antennas.csv", package = "simutils"),
  xml = system.file("extdata/metadata/output_files/antennas_dict.xml", package = "simutils")
)

filename_signal <- c(
  csv = system.file("extdata/output_files/SignalMeasure_MNO1.csv", package = "simutils"),
  xml = system.file("extdata/metadata/output_files/SignalMeasure_dict.xml", package = "simutils")
)

filename_coverage <- c(
  csv = system.file("extdata/output_files", "AntennaCells_MNO1.csv", package = "simutils"),
  xml = system.file("extdata/metadata/output_files/AntennaCells_dict.xml", package = "simutils")
)

filename_events <- c(
  csv = system.file("extdata/output_files/AntennaInfo_MNO_MNO1.csv", package = "simutils"),
  xml = system.file("extdata/metadata/output_files/events_dict.xml", package = "simutils")
)

filename_grid <- c(
  csv = system.file("extdata/output_files/grid.csv", package = "simutils"),
  xml = system.file("extdata/metadata/output_files/grid_dict.xml", package = "simutils")
)

filename_individ <- c(
  csv = system.file("extdata/output_files/persons.csv", package = "simutils"),
  xml = system.file("extdata/metadata/output_files/persons_dict.xml", package = "simutils")
)

filenames <- list(
  map                = filename_map,
  network_parameters = filename_network,
  signal             = filename_signal,
  events             = filename_events,
  coverage_cells     = filename_coverage,
  grid               = filename_grid,
  individuals        = filename_individ
)

simData <- simutils::read_simData(filenames, crs = 2062)
compute_voronoi_neighbours(simData, PLOT = TRUE)

bogdanoancea/simutils documentation built on April 4, 2022, 2:58 p.m.