mask_voronoi: Mask coordinates using voronoi masking

In sdcSpatial: Statistical Disclosure Control for Spatial Data

Mask coordinates using voronoi masking

Description

Pertubates points by using voronoi masking. Each point is moved at its nearest voronoi boundary.

Usage

mask_voronoi(x, r = 0, k = 10, plot = FALSE)

Arguments

x	coordinates
r	tolerance, nearest voronoi should be at least r away.
k	number of neighbors to consider when determining nearest neighbors
plot	if TRUE plots the voronoi tesselation, points (black), and perturbated points (red), needs package sf.

Value

adapted x with perturbed coordinates

See Also

Other point pertubation: mask_grid(), mask_random(), mask_weighted_random()

Examples

x <- cbind(
  x = c(2.5, 3.5, 7.2, 1.5),
  y = c(6.2, 3.8, 4.4, 2.1)
)

# plotting is only useful from small datasets!

# grid masking
x_g <- mask_grid(x, r=1, plot=TRUE)

# random pertubation
set.seed(3)
x_r <- mask_random(x, r=1, plot=TRUE)

if (requireNamespace("FNN", quietly = TRUE)){
  # weighted random pertubation
  x_wr <- mask_weighted_random(x, k = 2, r = 4, plot=TRUE)
}

if ( requireNamespace("FNN", quietly = TRUE)
  && requireNamespace("sf", quietly = TRUE)
   ){
  # voronoi masking, plotting needs package `sf`
  x_vor <- mask_voronoi(x, r = 1, plot=TRUE)
}

sdcSpatial documentation built on March 24, 2022, 5:05 p.m.