Displaying 1 result from an estimated 1 matches for "cpretty".
Did you mean:
pretty
1998 Jan 13
0
funny axis ranges; GPretty(.) vs. pretty(.) and all that...
...>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>
###------ Try the following code to find out about the differences
###------ of the 2 versions of pretty(.) : ------------------------
Cpretty <- Cpretty1 <- function (x, n = 5)
unlist(.C("pretty", l = min(x), u = max(x), n = as.integer(n)))
Cpretty2 <- function (x, n = 5) {
##-- return what .C("pretty... doe
n <- length(p <- pretty(x,n))
c(l=p[1], u=p[n], n=n-1)
}
Cpretty(pi)
all(Cpretty1(pi) == Cp...