Displaying 1 result from an estimated 1 matches for "minxv".
Did you mean:
minx
2007 Jun 12
0
distribution graph
...n.graph <- function(xx, grouping=FALSE,
ngroups=10, xplace=c(0,1,.5), halfband=.25,
xlab='', ylab='', pch=16,
lines=FALSE, lty='solid') {
x1 <- stripmiss(xx)
if (grouping) x1 <- grouping.v(x1,ngroups=ngroups)
xv <- as.numeric(names(table(x1))) # actual values
minxv <-min(xv)
maxxv <-max(xv)
xn <- as.numeric(table(x1)) # number of occurences
nx <- length(xv)
maxn <- max(xn)
plot(x=xplace[1]+(xv-minxv)*(xplace[2]-xplace[1])/
(maxxv-minxv),y=xv,xlab='',ylab='',
axes=FALSE,col='white')
box()
axis(1,at=xplace[3],labels=xlab...