pcds.ugraph (version 0.1.1)

inci.mat.undCStri: Incidence matrix for the underlying or reflexivity graphs of Central Similarity Proximity Catch Digraphs (CS-PCDs) - one triangle case

Description

Returns the incidence matrix for the underlying or reflexivity graphs of the CS-PCD whose vertices are the given 2D numerical data set, Xp, in the triangle tri\(=T(v=1,v=2,v=3)\).

CS proximity regions are constructed with respect to triangle tri with expansion parameter \(t > 0\) and edge regions are based on the center \(M=(m_1,m_2)\) in Cartesian coordinates or \(M=(\alpha,\beta,\gamma)\) in barycentric coordinates in the interior of the triangle tri; default is \(M=(1,1,1)\), i.e., the center of mass of tri. Loops are allowed, so the diagonal entries are all equal to 1.

See also (ceyhan:Phd-thesis,ceyhan:stamet2016;textualpcds.ugraph).

Usage

inci.mat.undCStri(
  Xp,
  tri,
  t,
  M = c(1, 1, 1),
  ugraph = c("underlying", "reflexivity")
)

Value

Incidence matrix for the underlying or reflexivity graphs of the CS-PCD with vertices being 2D data set, Xp

in the triangle tri with edge regions based on center M

Arguments

Xp

A set of 2D points which constitute the vertices of the underlying or reflexivity graph of the CS-PCD.

tri

A \(3 \times 2\) matrix with each row representing a vertex of the triangle.

t

A positive real number which serves as the expansion parameter in CS proximity region.

M

A 2D point in Cartesian coordinates or a 3D point in barycentric coordinates which serves as a center in the interior of the triangle tri; default is \(M=(1,1,1)\), i.e., the center of mass of tri.

ugraph

The type of the graph based on CS-PCDs, "underlying" is for the underlying graph, and "reflexivity" is for the reflexivity graph (default is "underlying").

Author

Elvan Ceyhan

References

See Also

inci.mat.undCS, inci.mat.undAStri, inci.mat.undPEtri, and inci.matCStri

Examples

#\donttest{
A<-c(1,1); B<-c(2,0); C<-c(1.5,2);
Tr<-rbind(A,B,C);
n<-10

set.seed(1)
Xp<-pcds::runif.tri(n,Tr)$g

M<-as.numeric(pcds::runif.tri(1,Tr)$g)
(IM<-inci.mat.undCStri(Xp,Tr,t=1.5,M))
pcds::dom.num.greedy(IM)
pcds::Idom.num.up.bnd(IM,3)

(IM<-inci.mat.undCStri(Xp,Tr,t=1.5,M,ugraph="r"))
pcds::dom.num.greedy(IM)
pcds::Idom.num.up.bnd(IM,3)
#}