The histograms above were created with the code below: # Histogram 1 sdob1 % gf_labs(title = top_50) # Histogram 2 top_10

The histograms above were created with the code below: # Histogram 1 sdob1 <- do(1000) * b1(shuffle(popularity) ~ danceability, data = top_50) gf_histogram(~b1, data = sdob1, bins=100, fill = ~middle(b1, .95)) %>% gf_labs(title = "top_50") # Histogram 2 top_10 <- sample(top_50, 10) sdob1_2 <- do(1000) * b1(shuffle(popularity) ~ danceability, data = top_10) gf_histogram(~b1, data = sdob1_2, bins = 100, fill = ~middle(b1, .95)) %>% gf_labs(title = "top_10") Which of these distributions could lead you to make a Type I error for a sample with of .11? Responses A Both distributionsBoth distributions B The top_50 distributionThe top_50 distribution C Neither distributionNeither distribution D The top_10 distribution