compute_voronoi_positions: 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_positions(mnd_info, voronoi)

Arguments

mnd_info	list with two elements related with the simulation input. The first element is related with the observed mnd (data.table) whereas the second component contains the groundTruth (sf object)
voronoi	list of sf objects: triangles.sf and polygons.sf with: geometry - coordinates of triangles and polygons info of antennas which compose the objects

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)
compute_voronoi_positions(mnd_info, voronoi)

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