Determine the elbow point on a curve

Source: R/elbow_point.R

Given a list of x, y coordinates on a curve, function determines the elbow point of the curve.

elbow_point(x, y)

Arguments

x

vector of x coordinates of points on the curve
y

vector of y coordinates of points on the curve

Value

indicate the optimal k value determined by the elbow point point.

Details

highlight the maximum curvature to identify the elbow point (credit: 'github.com/agentlans')

Examples


# Generate some curve
x <- runif(100, min=-2, max=3)
y <- -exp(-x) * (1+rnorm(100)/3)
plot(x, y)

#Plot elbow points
abline(v=elbow_point(x,y)$y, col="blue", pch=20, cex=3)