set.seed(02119)

y<- round(runif(20, 2, 9), 3)

x1<- round(y*25*(1-runif(20, -0.7, 0.7)), 3)

x2<- c(rep("East", 5), rep("West", 5), rep("North", 5), rep("South", 5))

x3<- round(y*(1-runif(20, -0.5, 0.5)), 3)

Run the following code to fit the simple linear regression model in R/RStudio:

summary(lm(y~x1))

Copy the output from R in your report and answer the following questions:

- What is the equation of the regression line?

- What are the null and alternative hypotheses for the slope beta1? NB: For the null

and alternative hypotheses provide both the formula and explain the hypotheses in

words (using the information of what the variables represent)

- What does the p-value for the individual t-test for the slope beta1 show?