# NOT RUN {
# This is example 7 from Chapter 8 in Massart et al. (1997)
data(massart97ex1)
m <- lm(y ~ x, data = massart97ex1)
inverse.predict(m, 15) # 6.1 +- 4.9
inverse.predict(m, 90) # 43.9 +- 4.9
inverse.predict(m, rep(90,5)) # 43.9 +- 3.2
# }
Run the code above in your browser using DataLab