Displaying 1 result from an estimated 1 matches for "cpretty2".
Did you mean:
cpretty
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) == Cpretty2(pi))
all(Cpretty1(c(0,pi)) == Cpretty2(c(0,pi)))
for(i in 1:100) {
x_c(runif(1),pi)
for(k in -14:14) {
ok <-...