learning how to use github with Git bash and R Markdown
NPsimXsample <- replicate(k, sample(Day1Waiting, replace = TRUE)) NPsimYsample <- replicate(k, sample(Day2Waiting, replace = TRUE))
NPsimMeanDifs <- apply(NPsimXsample, 2, mean) - apply(NPsimYsample, 2, mean)
quantile(NPsimMeanDifs, c(0.025,0.975)) # i.e. 95% Confidence Interval