Question

1. BEFORE you start working on this problem, enter the following commands: set.seed (2) height = 1:50 weight rbeta(50, 3, 7) + 10 Here we consider height explanatory and weight response. Compute the estimate of mean wight given by the regression line for height 25 (round the result to 3 decimals). A. 10.285 B 10.318 C. 10.104 D. 10.415

Answer 1

If we run the given code in R and then fit a regression model to it, using height as the explanatory variable and weight as the response,the following output is obtained:

Coefficients:
(Intercept) height
10.3081578 -0.0009283

The R code is:

set.seed(2)
> height <- 1:50
> weight <- rbeta(50,3,7)+10
> model <- lm(weight~height)
> model

Therefore, from the output the regression equation is:

weight = 10.3081578 + (-0.0009283)height

Hence if height = 25,

weight = 10.3081578 + (-0.0009283) * 25

= 10.285

The correct answer is: A. 10.285