Displaying 1 result from an estimated 1 matches for "e1xt".
Did you mean:
e1t
2001 Jun 18
1
approxfun(*, ties=) returning "random" result (PR#986)
...b <- all(ee == 1)) && b) cat(".") else cat("\n",16*ee,"\n")}
## The problem happens only when ties = <function>, not for ties = "ordered":
e1 <- approxfun(xt,(1:n)/n, method = "const", yl=0, yr=1, f=0, ties="ordered")
e1xt <- c(3,3,3:6,8,8,9,rep(13,4),14,15,15)/16
stopifnot(e1(xt) == e1xt)
## Execute the following (long) line a few times...
## -- no problem, always "........."
for(i in 1:100) {ee <- e1(xt);if(!is.na(b <- all(ee == e1xt))&& b)cat(".") else cat("\n",16*ee...