plotPEregs1D {pcds} | R Documentation |
The plot of the Proportional Edge (PE) Proximity Regions
(vertices jittered along y
-coordinate)
- multiple interval case
Description
Plots the points in and outside of the intervals
based on Yp
points and also the PE proximity regions
(i.e., intervals).
PE proximity region is constructed with expansion parameter r \ge 1
and
centrality parameter c \in (0,1)
.
If there are duplicates of Yp
or Xp
points,
only one point is retained for each duplicate value,
and a warning message is printed.
For better visualization, a uniform jitter from U(-Jit,Jit)
(default is Jit=.1
) times range of Xp
and Yp
and the proximity regions (intervals)) is added to the
y
-direction.
centers
is a logical argument, if TRUE
,
plot includes the centers of the intervals as vertical lines in the plot,
else centers of the intervals are not plotted.
See also (Ceyhan (2012)).
Usage
plotPEregs1D(
Xp,
Yp,
r,
c = 0.5,
Jit = 0.1,
main = NULL,
xlab = NULL,
ylab = NULL,
xlim = NULL,
ylim = NULL,
centers = FALSE,
...
)
Arguments
Xp |
A set of 1D points for which PE proximity regions are plotted. |
Yp |
A set of 1D points which constitute the end points of the intervals which partition the real line. |
r |
A positive real number which serves as the expansion parameter in PE proximity region;
must be |
c |
A positive real number in |
Jit |
A positive real number that determines the amount of jitter along the |
main |
An overall title for the plot (default= |
xlab , ylab |
Titles for the |
xlim , ylim |
Two |
centers |
A logical argument, if |
... |
Additional |
Value
Plot of the PE proximity regions for 1D points located in the middle or end-intervals
based on Yp
points
Author(s)
Elvan Ceyhan
References
Ceyhan E (2012). “The Distribution of the Relative Arc Density of a Family of Interval Catch Digraph Based on Uniform Data.” Metrika, 75(6), 761-793.
See Also
plotPEregs1D
, plotCSregs.int
, and plotCSregs1D
Examples
r<-2
c<-.4
a<-0; b<-10; int<-c(a,b);
#nx is number of X points (target) and ny is number of Y points (nontarget)
nx<-15; ny<-4; #try also nx<-40; ny<-10 or nx<-1000; ny<-10;
set.seed(1)
xf<-(int[2]-int[1])*.1
Xp<-runif(nx,a-xf,b+xf)
Yp<-runif(ny,a,b)
plotPEregs1D(Xp,Yp,r,c,xlab="x",ylab="")