ese: The Extremum Surface Estimator (ESE) for finding the...

View source: R/ese.R

eseR Documentation

The Extremum Surface Estimator (ESE) for finding the inflection point of a convex/concave curve


Implementation of ESE method as defined in [1] and [2] by giving a simple output of the method. Use of parallel computing under user request.


ese(x, y, index, doparallel = FALSE)



The numeric vector of x-abscissas, must be of length at least 4.


The numeric vector of the noisy or not y-ordinates, must be of length at least 4.


If data is convex/concave then index=0
If data is concave/convex then index=1


If doparallel=TRUE then parallel computing is applied, based on the available workers of current machine (default value = FALSE)


If data is from an unknown function and without noise then we can find the inflection point by a way similar to bisection method way for root finding. If data is noisy, then we have two consistent estimators of the trapezoidal estimated inflection point, i.e. we consistently estimate what we could find by computing the relevant areas with elementary trapezoids. This method is not so fast as ede but it can be used for a fine-tuning of the result returned be EDE.


A matrix of size 1 x 3 is returned with elements:


The index j-right for ESE method


The index j-left for ESE method


The Extremum Surface Estimator (ESE) for inflection point


Use doparallel=TRUE option when you have relative large data sets (N>20000).
For large data sets (one million rows) it is better to use first ede or bede in order to locate a smaller neighbourhood of the inflection point. Then ese gives a better estimation, since it uses surfaces and not distances from total chord.


Demetris T. Christopoulos


[1]Demetris T. Christopoulos (2014). Developing methods for identifying the inflection point of a convex/concave curve. arXiv:1206.5478v2 [math.NA].

[2]Demetris T. Christopoulos (2016). On the efficient identification of an inflection point.International Journal of Mathematics and Scientific Computing, (ISSN: 2231-5330), vol. 6(1).

See Also

See also the iterative version bese and iterations plot using findipiterplot.


#Fisher-pry model with heavy noise and unequal spaces, relative large data set:
#tese=ese(x,y,0,doparallel = TRUE);
#t2=Sys.time();print(as.POSIXlt(t2, "GMT")-as.POSIXlt(t1, "GMT"),quote=F);
#Time difference of 7.641404 secs
#       j1    j2      chi
# ESE 7559 12790 5.078434
#Compare with serial version (don't run):
# t1=Sys.time();
# tese=ese(x,y,0,doparallel = FALSE);
# t2=Sys.time();print(as.POSIXlt(t2, "GMT")-as.POSIXlt(t1, "GMT"),quote=F);
# #Time difference of 24.24364 secs
# tese;
#      j1    j2      chi
# ESE 7559 12790 5.078434

inflection documentation built on June 15, 2022, 5:07 p.m.