library(tidyverse)
library(scales)
options(scipen=999) 
data(SaratogaHouses, package="mosaicData")
houses_lm <- lm(price ~ lotSize + age + landValue +
                  livingArea + bedrooms + bathrooms +
                  waterfront, 
                data = SaratogaHouses)

# View summary of model 1
summary(houses_lm)

Interpretation

Q1 Build a regression model to predict the volume of trail users using hightemp, and precip.

Hint: The variables are available in the RailTrail data set from the mosaicData package.

data(RailTrail, package="mosaicData")
RailTrail_lm <- lm(volume ~ hightemp + precip,
                data = RailTrail)

# View summary of model 1
summary(RailTrail)

Q2 Is the coefficient of hightemp statistically significant at 5%?

Yes the hightemp is statistically relevant to 5%. The P-value of hightemp is smaller than 5%.

Q3 Interpret the coefficient of hightemp?

For every change in an additional unit of hightemp which is in degrees F’ an additional six people will be added to the volume of trail users.

Q4 Is the intercept statistically significant at 5%?

No the intercept is not statistically significant at 5% because the P-value is greater than 5%.

Q5 Interpret the intercept?

When all predators are at the value 0 the intercept is the value of the volume of trail users.

Q6 Interpret the reported residual standard error.

on average the difference between the actual volume and the volume predicted by the model is 97 people we can see this is the reported residual standard.

Q7 Interpret the reported adjusted R squared.

42.47% of the variabillity in trail volumecan be explained by the model.

Q8 Hide the messages, but display the code and its results on the webpage.

Hint: Use message, echo and results in the chunk options. Refer to the RMarkdown Reference Guide.

Q9 Display the title and your name correctly at the top of the webpage.

Q10 Use the correct slug.