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

1 Expert Approved Answer
Step: 1 Unlock blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Mathematics Questions!