library(tidyverse)
library(tidymodels)
library(ggfortify)
library(knitr)
AE 4: Exam 1 Review
Packages
Restaurant tips
What factors are associated with the amount customers tip at a restaurant? To answer this question, we will use data collected in 2011 by a student at St. Olaf who worked at a local restaurant.1
The variables we’ll focus on for this analysis are
Tip
: amount of the tipParty
: number of people in the party
View the data set to see the remaining variables.
<- read_csv("data/tip-data.csv") tips
Exploratory analysis
- Visualize, summarize, and describe the relationship between
Party
andTip
.
# add your code here
Modeling
Let’s start by fitting a model using Party
to predict the Tip
at this restaurant.
Write the statistical model.
Fit the regression line and write the regression equation. Name the model
tips_fit
and display the results withkable()
and a reasonable number of digits.
# add your code here
Interpret the slope.
Does it make sense to interpret the intercept? Explain your reasoning.
What is the R-squared and RMSE for this model? How do you evaluate your model’s fitting performance? Explain your reasoning.
Inference
Inference for the slope
- The following code can be used to create a bootstrap distribution for the slope (and the intercept, though we’ll focus primarily on the slope in our inference). Describe what each line of code does, supplemented by any visualizations that might help with your description.
set.seed(1234)
<- tips %>%
boot_dist specify(Tip ~ Party) %>%
generate(reps = 100, type = "bootstrap") %>%
fit()
- Use the bootstrap distribution created in Exercise 7,
boot_dist
, to construct a 90% confidence interval for the slope using bootstrapping and the percentile method and interpret it in context of the data.
# add your code here
- Conduct a hypothesis test at the equivalent significance level using permutation. State the hypotheses and the significance level you’re using explicitly. Also include a visualization of the null distribution of the slope with the observed slope marked as a vertical line.
# add your code here
- Now repeat Exercises 8 and 9 using approaches based on mathematical models.
# add your code here
Inference for a prediction
- Based on your model, predict the tip for a party of 4.
# add your code here
Suppose you’re asked to construct a confidence and a prediction interval. Which one would you expect to be wider and why? In your answer clearly state the difference between these intervals.
Now construct the intervals from Exercise 11 and comment on whether your guess is confirmed.
# add your code here
Footnotes
Dahlquist, Samantha, and Jin Dong. 2011. “The Effects of Credit Cards on Tipping.” Project for Statistics 212-Statistics for the Sciences, St. Olaf College.↩︎