ทดสอบสมมติฐานเกี่ยวกับราคาเช่ามัธยฐานของอพาร์ตเมนต์ 1 ห้องนอนในแมนฮัตตัน

n_replicates <- 15000

# Generate 15000 bootstrap samples centered at null
rent_med_ht <- manhattan %>%
  specify(response = rent) %>%
  # Use a point hypothesis with a median of 2500
  ___(null = "___", med = ___) %>% 
  generate(reps = n_replicates, type = "bootstrap") %>% 
  calculate(stat = "median")
  
# See the result
rent_med_ht