#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 fit, but here just for #example)
lm(formula = y ~ x + I(x^2) + I(x^3))
#the results:
#Coefficients:
#(Intercept) x I(x^2) I(x^3)
#-1.5558172 1.0738235 -0.0101314 0.0001425

#1. Now I'd like to have the median values for the intercept, x, l(x^2) and l(x^3) AFTER A #BOOTSTRAP. That is to say that i'd like to have 1000 lines between the first interval 60-#59 and so on for the next 59-55 etc...
#2. I'd also like the R and the associated prediction error for each interval
#Thank very much for help