compute_voronoi_connections: Determine the Voronoi polygon where each device is at each...

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

Determine the Voronoi polygon where each device is at each time instant (Voronoi_true). and the Voronoi polygon of the antenna to which each device is connected at each time instant (Voronoi_conn).

Description

Determine the Voronoi polygon where each device is at each time instant (Voronoi_true). and the Voronoi polygon of the antenna to which each device is connected at each time instant (Voronoi_conn).

Usage

compute_voronoi_connections(simData, polygons.sf, voronoi_positions)

Arguments

simData	list with components map, network, coverage, grid, individuals as output by function read_simData.
polygons.sf	object sf with the Voronoi polygons of the network antenna sites.
voronoi_positions	objects sf with true Voronoi locations and multiple variables per time instant and individual.

Value

a list with two sf objects: groundTruth, which adds the Voronoi_true and Voronoi_conn positions; and polygons, which adds the antenna id to each polygon.

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)
mnd_info <- simutils::get_mnd(simData, groundTruth = TRUE)
voronoi <- simutils::compute_voronoi_sf(simData)
voronoi_positions <- simutils::compute_voronoi_positions(mnd_info, voronoi)
compute_voronoi_connections(simData, voronoi$polygons, voronoi_positions)

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