#Hi everybody and excuse me for my bad english for this request on R.
#here parameter of an hypothetical interval :
x=c(60,59,55,49,43,38,33,28,24,20,17,15,12,10,8,6,5)
y=c(59,55,49,43,38,33,28,24,20,17,15,12,10,8,6,5,4)
#I adjusted it by a polynomial regression degree 3 (not the best...