
Last chance! 50% off unlimited learning
Sale ends in
Plots the arcs of PE-PCD whose vertices are the 1D points, Xp
.
PE proximity regions are constructed with
expansion parameter Yp
points (i.e.
the intervalization is based on Yp
points).
That is, data set Xp
constitutes the vertices of the digraph and Yp
determines the end points of the intervals.
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 Jit
equals to the range of Xp
and Yp
multiplied by Jit
with default for 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:metrika-2012;textualpcds).
plotPEarcs1D(
Xp,
Yp,
r,
c = 0.5,
Jit = 0.1,
main = NULL,
xlab = NULL,
ylab = NULL,
xlim = NULL,
ylim = NULL,
centers = FALSE,
...
)
A plot of the arcs of PE-PCD whose vertices are the 1D data set Xp
in which vertices are jittered
along
A vector
of 1D points constituting the vertices of the PE-PCD.
A vector
of 1D points constituting the end points of the intervals.
A positive real number which serves as the expansion parameter in PE proximity region;
must be
A positive real number in c=.5
.
For the interval,
A positive real number that determines the amount of jitter along the 0.1
and
Xp
points are jittered according to Jit
equals to the range of the union of Xp
and Yp
points multiplied by Jit
).
An overall title for the plot (default=NULL
).
Titles of the NULL
for both).
Two numeric
vectors of length 2, giving the NULL
for both).
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.
Additional plot
parameters.
Elvan Ceyhan
plotPEarcs.int
and plotCSarcs1D
# \donttest{
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<-20; 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)
Xlim=range(Xp,Yp)
Ylim=.1*c(-1,1)
jit<-.1
set.seed(1)
plotPEarcs1D(Xp,Yp,r=1.5,c=.3,jit,xlab="",ylab="",centers=TRUE)
set.seed(1)
plotPEarcs1D(Xp,Yp,r=2,c=.3,jit,xlab="",ylab="",centers=TRUE)
# }
Run the code above in your browser using DataLab