Data Science, Statistics, Analytics, Experiment, Causality.
sixth week with α = 0.05: library(data.table) num_sim <- 100 num_week <- 20 obs_per_week <- 1000 set.seed(123) p_values <- matrix(NA, nrow = num_sim, ncol = num_week) for(i in 1:num_sim){ for(j in 1:num_week){ A <- matrix(rnorm(obs_per_week*num_week, 10, 1), nrow = obs_per_week, ncol = num_week) B