Question: set.seed(100) x
set.seed(100)
x <- c(4, 8, 12, 16, 20)
y <- 20 + 4 * x + rnorm(5,0,5)
y
reg_1 <- lm(y ~ x)
reg_1
Yhat=17.564+4.249*10
Yhat
predic_1 <- predict(reg_1, data.frame(x = 10), interval = "confidence")
predic_1
predic_2 <- predict(reg_1, data.frame(x = 10), interval = "prediction")
predic_2
########As hint for my question and this is part(1) by Rstudio
Step by Step Solution
There are 3 Steps involved in it
Get step-by-step solutions from verified subject matter experts
