R/Lab7ChallengePart2SampleMeanNS.R

In Pranav-Bhagat/Lab7Challenge2: Sing the 12 Days of Christmas

sample_means_ns <- function(vec, reps, ns) {
  df <- map_dfc(ns, ~many_sample_means(vec, reps, .x))
  colnames(df) <- ns
  return(df %>%
           pivot_longer(colnames(df), names_to = "n", values_to = "sample_mean") %>%
           mutate(n = as.double(n)))}