powered by
Resample a curve equidistantly (optionally with smoothing)
resampleCurve(x, n, smooth = FALSE, smoothn = n, open = TRUE)
returns a matrix containing the resampled curve
matrix containing coordinates
number of resulting points on the resampled curve
logical: if TRUE, the resulting curve will be smoothed by using bezier curves.
integer: define the refinement of the bezier curve. The higher this value, the closer the final curve will be to the original.
logical: define whether it is a closed curve or not.
data(nose) x <- shortnose.lm[c(304:323),] xsample <- resampleCurve(x,n=50)
Run the code above in your browser using DataLab