In emeyers/SDS100: Tools for the class Introductory Statistics

knitr::opts_chunk$set(echo = TRUE)

library(SDS100)

Bechdel test bootstrap CI

$\$

One more bootstrap confidence interval for the mean gross revenue of movies.

# Let's create a confidence interval for the mean gross revenue of movies
library(fivethirtyeight)



# View(bechdel)
# get the data
gross <- na.omit(bechdel$domgross_2013)


# get number of data points in our sample



# get x-bar




# create a bootstrap distribution







# visualize the bootstrap distribution




# calculate SE*




# get the CI

Questions?

1. How do we interpret the results?

2 Do we believe these results?

1. Are there any concerns about the analysis?

   a. Is the Bechdel data really a simple random sample from all movies?

   b. Might the revenue of movies change over time (even after adjusting for inflation)?

   c. In general, what is the population we are trying to do inference on?

$\$

Testing the Bechdel test

# step 1: state null and alternative hypotheses





# step 2: compute observed statistic





# step 3: create the null distribution









# plot the null distribution






# step 4: calculate the p-value







# 5. decision?

$\$

Hypothesis testing with Joy

# step 1: state null and alternative hypotheses





# step 2: compute observed statistic




# step 3: create the null distribution








# plot the null distribution







# step 4: calculate the p-value






# 5. decision?

emeyers/SDS100 documentation built on April 28, 2024, 5:07 p.m.