# NOT RUN {
# Curve creation
x<-seq(0,30, length=200)
y=90-x^2
curve=data.frame(x,y)
# Homogenization of the number of points
ltl<-digit.curves.p(start=curve[1,], curve=as.matrix(curve), nPoints=98, closed = FALSE)
plot(ltl)
# }
Run the code above in your browser using DataLab