Learn R Programming

pcds (version 0.1.4)

NumArcsCSmid1D: Number of Arcs of of Central Similarity Proximity Catch Digraphs (CS-PCDs) - middle interval case

Description

Returns the number of arcs of of Central Similarity Proximity Catch Digraphs (CS-PCDs) whose vertices are the given 1D numerical data set, dat.

CS proximity region \(N_{CS}(x,t,c)\) is defined with respect to the interval int\(=(a,b)\) for this function. CS proximity region is constructed with expansion parameter \(t>0\) and centrality parameter \(c \in (0,1)\).

Vertex regions are based on the center associated with the centrality parameter \(c \in (0,1)\). For the interval, int\(=(a,b)\), the parameterized center is \(M_c=a+c(b-a)\) and for the number of arcs, loops are not allowed so arcs are only possible for points inside the middle interval int for this function.

See also (ceyhan:revstat-2016;textualpcds).

Usage

NumArcsCSmid1D(dat, t, c, int)

Value

Number of arcs for the PE-PCD whose vertices are the 1D data set, dat, with expansion parameter, \(r \ge 1\), and centrality parameter, \(c \in (0,1)\). PE proximity regions are defined only for dat points inside the interval int, i.e., arcs are possible for such points only.

Arguments

dat

A set or vector of 1D points which constitute the vertices of CS-PCD.

t

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

c

A positive real number in \((0,1)\) parameterizing the center inside int\(=(a,b)\). For the interval, int\(=(a,b)\), the parameterized center is \(M_c=a+c(b-a)\).

int

A vector of two real numbers representing an interval.

Author

Elvan Ceyhan

References

See Also

NumArcsCSend1D, NumArcsPEmid1D, and NumArcsPEend1D

Examples

Run this code
c<-.4
t<-2
a<-0; b<-10; int<-c(a,b)

n<-10
dat<-runif(n,a,b)
NumArcsCSmid1D(dat,t,c,int)

NumArcsCSmid1D(dat,t,c=.3,int)

NumArcsCSmid1D(dat,t=1.5,c,int)

NumArcsCSmid1D(dat,t,c,int+5)
NumArcsCSmid1D(dat,t,c,int+10)

n<-10  #try also n<-20
dat<-runif(n,a-5,b+5)
NumArcsCSint(dat,t,c,int)

dat<-runif(n,a+10,b+10)
NumArcsCSmid1D(dat,t,c,int)

n<-10
dat<-runif(n,a,b)
NumArcsCSmid1D(dat,t,c,int)

Run the code above in your browser using DataLab