inci.matPEstd.tri {pcds} | R Documentation |
Incidence matrix for Proportional Edge Proximity Catch Digraphs (PE-PCDs) - standard equilateral triangle case
Description
Returns the incidence matrix for the PE-PCD
whose vertices are the given 2D numerical data set, Xp
,
in the standard equilateral triangle
.
PE proximity region is constructed
with respect to the standard equilateral triangle with
expansion parameter
and vertex regions are based on
the center
in Cartesian coordinates
or
in barycentric coordinates
in the interior of
; default is
,
i.e., the center of mass of
.
Loops are allowed,
so the diagonal entries are all equal to 1.
See also (Ceyhan (2005, 2010)).
Usage
inci.matPEstd.tri(Xp, r, M = c(1, 1, 1))
Arguments
Xp |
A set of 2D points which constitute the vertices of the PE-PCD. |
r |
A positive real number
which serves as the expansion parameter in PE proximity region;
must be |
M |
A 2D point in Cartesian coordinates
or a 3D point in barycentric coordinates
which serves as a center
in the interior of the standard equilateral triangle |
Value
Incidence matrix for the PE-PCD with vertices
being 2D data set, Xp
in the standard equilateral triangle where PE proximity
regions are defined with M
-vertex regions.
Author(s)
Elvan Ceyhan
References
Ceyhan E (2005).
An Investigation of Proximity Catch Digraphs in Delaunay Tessellations, also available as technical monograph titled Proximity Catch Digraphs: Auxiliary Tools, Properties, and Applications.
Ph.D. thesis, The Johns Hopkins University, Baltimore, MD, 21218.
Ceyhan E (2010).
“Extension of One-Dimensional Proximity Regions to Higher Dimensions.”
Computational Geometry: Theory and Applications, 43(9), 721-748.
Ceyhan E (2011).
“Spatial Clustering Tests Based on Domination Number of a New Random Digraph Family.”
Communications in Statistics - Theory and Methods, 40(8), 1363-1395.
See Also
inci.matPEtri
, inci.matPE
,
and inci.matCSstd.tri
Examples
A<-c(0,0); B<-c(1,0); C<-c(1/2,sqrt(3)/2);
Te<-rbind(A,B,C)
n<-10
set.seed(1)
Xp<-runif.std.tri(n)$gen.points
M<-as.numeric(runif.std.tri(1)$g) #try also M<-c(.6,.2)
inc.mat<-inci.matPEstd.tri(Xp,r=1.25,M)
inc.mat
sum(inc.mat)-n
num.arcsPEstd.tri(Xp,r=1.25)
dom.num.greedy(inc.mat)
Idom.num.up.bnd(inc.mat,2) #try also dom.num.exact(inc.mat)