Displaying 1 result from an estimated 1 matches for "wcoord".
Did you mean:
coord
2002 Oct 31
0
Changing pch spacing]
...ymbols at every k-th points pw 10/02
# pch: characters to be plotted
# space.size: size of area for the points
# space.bg: color of area for the points
# pch.col: color of the points
plot(x,y,type="l",...)
ind<-seq(x)[seq(x)%%k==0]; x<-x[ind]; y<-y[ind]
wcoord<-par()$usr
dh<-c(wcoord[2]-wcoord[1],wcoord[4]-wcoord[3])*space.size
rect(x-dh[1],y-dh[2],x+dh[1],y+dh[2],col=space.bg,border="white")
points(x,y,pch=pch,col=pch.col)
}
# Example:
x<-1:500; y<-cumsum(rnorm(length(x),3,3))
k<-40
bplot(x,y,k,pch=1,space.size=1/70,spa...