arcsCSmid.int | R Documentation |
An object of class "PCDs"
.
Returns arcs as tails (or sources) and heads (or arrow ends) for 1D data set Xp
as the vertices
of CS-PCD and related parameters and the quantities of the digraph.
For this function, CS proximity regions are constructed with respect to the intervals
based on Yp
points with expansion parameter t>0
and centrality parameter c \in (0,1)
. That is, for this
function, arcs may exist for points only inside the intervals.
It also provides various descriptions and quantities about the arcs of the CS-PCD
such as number of arcs, arc density, etc.
Vertex regions are based on center M_c
of each middle interval.
See also (\insertCiteceyhan:revstat-2016;textualpcds).
arcsCSmid.int(Xp, Yp, t, c = 0.5)
Xp |
A set or |
Yp |
A set or |
t |
A positive real number which serves as the expansion parameter in CS proximity region. |
c |
A positive real number in |
A list
with the elements
type |
A description of the type of the digraph |
parameters |
Parameters of the digraph, here, they are expansion and centrality parameters. |
tess.points |
Points on which the tessellation of the study region is performed, here, tessellation
is the intervalization based on |
tess.name |
Name of data set used in tessellation, it is |
vertices |
Vertices of the digraph, i.e., |
vert.name |
Name of the data set which constitute the vertices of the digraph |
S |
Tails (or sources) of the arcs of CS-PCD for 1D data in the middle intervals |
E |
Heads (or arrow ends) of the arcs of CS-PCD for 1D data in the middle intervals |
mtitle |
Text for |
quant |
Various quantities for the digraph: number of vertices, number of partition points, number of intervals, number of arcs, and arc density. |
Elvan Ceyhan
arcsPEend.int
, arcsPE1D
, arcsCSmid.int
,
arcsCSend.int
and arcsCS1D
t<-1.5
c<-.4
a<-0; b<-10
#nx is number of X points (target) and ny is number of Y points (nontarget)
nx<-20; ny<-4; #try also nx<-40; ny<-10 or nx<-1000; ny<-10;
set.seed(1)
Xp<-runif(nx,a,b)
Yp<-runif(ny,a,b)
arcsCSmid.int(Xp,Yp,t,c)
arcsCSmid.int(Xp,Yp+10,t,c)
Arcs<-arcsCSmid.int(Xp,Yp,t,c)
Arcs
summary(Arcs)
plot(Arcs)
S<-Arcs$S
E<-Arcs$E
jit<-.1
yjit<-runif(nx,-jit,jit)
Xlim<-range(Xp,Yp)
xd<-Xlim[2]-Xlim[1]
plot(cbind(a,0),
main="arcs of CS-PCD whose vertices (jittered along y-axis)\n in middle intervals ",
xlab=" ", ylab=" ", xlim=Xlim+xd*c(-.05,.05),ylim=3*c(-jit,jit),pch=".")
abline(h=0,lty=1)
points(Xp, yjit,pch=".",cex=3)
abline(v=Yp,lty=2)
arrows(S, yjit, E, yjit, length = .05, col= 4)
t<-.5
c<-.4
a<-0; b<-10;
nx<-20; ny<-4; #try also nx<-40; ny<-10 or nx<-1000; ny<-10;
Xp<-runif(nx,a,b)
Yp<-runif(ny,a,b)
arcsCSmid.int(Xp,Yp,t,c)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.