Displaying 2 results from an estimated 2 matches for "newpts".
Did you mean:
newptr
2001 Sep 09
0
plots with symbols proportional to number of repeats
...parse(substitute(x)),
ylab=deparse(substitute(y)),
...) {
pair <- function(x,y) {
paste(x,y,sep="/")
}
unpair <- function(x) {
t(sapply(strsplit(x,"/"),as.numeric))
}
f <- factor(pair(x,y))
n <- table(f)
newpts <- unpair(levels(f))
symbols(newpts[,1],newpts[,2],circles=n,inches=maxsize,
xlab=xlab,ylab=ylab,...)
}
x <- c(0.1,0.1,0.1,0.1,0.1,0.2,0.2,0.2,0.2,0.3,0.3)
y <- c( 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 5 )
plot(x,y)
sizeplot(x,y)
--
318 Carr Hall...
2003 Aug 22
3
PAE removal patch for testing
If you're one of the people who has cvsup'd to 4.8-stable since August 8th
and you've since begun to experience panics on a previously stable system,
please apply the attached patch and see if your previous stability has
been restored.
Please tell me your results.
Thanks,
Mike "Silby" Silbersack
-------------- next part --------------
diff -u -r