drezner {ttbary} | R Documentation |
Run an Improved Version of the Algorithm by Drezner, Mehrez and Wesolowsky for Finding Barycenters Based on Limited Distances
Description
Find a barycenter of a 2-d point cloud based on minimizing the -th power of the Euclidean
distance, cut off at
. In addition to using a pre-screening procedure to further
alleviate the computational burden of the original algorithm, an option may be specified
to allow the algorithm to return
NA
if no location in 2-d space is "good enough".
Usage
drezner(clusterx, clustery, penalty, p = 2, reduction = TRUE, aleph = FALSE)
Arguments
clusterx , clustery |
vectors of x- and y-coordinates for the point cloud. |
penalty |
the |
p |
the exponent for the distances and cutoffs. Currently only implemented for |
reduction |
logical. Shall the pre-screening procedure be applied? |
aleph |
logical. Shall the returned value be |
Details
For points with
-coordinates
clusterx
and
-coordinates
clustery
find a minimizer (barycenter) of
or return NA
if for all
.
The original algorithm is due to Drezner, Mehrez and Wesolowsky (1991). The improvements are from Müller, Schöbel and Schuhmacher (2022).
Value
A list containing the following components:
barycenterx , barycentery |
the |
cost |
the total cost |
calculations |
If |
skipped |
If |
Author(s)
Raoul Müller raoul.mueller@uni-goettingen.de
References
Zvi Drezner, Avram Mehrez and George O. Wesolowsky (1991).
The facility location problem with limited distances.
Transportation Science 25.3 (1991): 183-187.
www.jstor.org/stable/25768490
Raoul Müller, Anita Schöbel and Dominic Schuhmacher (2022).
Location problems with cutoff.
Preprint arXiv:2203.00910
Examples
x <- rnorm(20)
y <- rnorm(20)
plot(x, y, asp=1)
res <- drezner(x, y, 2)
points(res$barycenterx, res$barycentery, col=2)
res <- drezner(x, y, 0.5)
points(res$barycenterx, res$barycentery, col=4)