# Finding Confidence Interval for Estimation or Prediction
# using predictor variable HEIGHT and AGE in the model LinearModel.1
# Variable names are case sentitive in R function

# 95% Confidence Interval Estimate for Mean Response
new <- data.frame(HEIGHT=55, AGE=144)
predict(LinearModel.1, newdata=new, interval="confidence")

# 95% Confidence Interval Estimate for Individual Response
new <- data.frame(HEIGHT=55, AGE=144)
predict(LinearModel.1, newdata=new, interval="prediction")

# 90% Confidence Interval Estimate for Mean Response
new <- data.frame(HEIGHT=55, AGE=144)
predict(LinearModel.1, newdata=new, interval="confidence", level=.9)

# 90% Confidence Interval Estimate for Individual Response
new <- data.frame(HEIGHT=55, AGE=144)
predict(LinearModel.1, newdata=new, interval="prediction", level=.9)