Determine the elbow point on a curve
Given a list of x, y coordinates on a curve, function determines the elbow point of the curve.
elbow_point(x, y)
x |
vector of x coordinates of points on the curve |
y |
vector of y coordinates of points on the curve |
highlight the maximum curvature to identify the elbow point (credit: 'github.com/agentlans')
indicate the optimal k value determined by the elbow point point.
# 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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.