# NOT RUN {
rates <- numeric(100)
for(i in 1:100){
dat <- rnorm(100)
rates[i] <- t.test(dat)$p.value
}
EDR(rates)
EDR(rates, alpha = .01)
# multiple rates at once
rates <- cbind(runif(1000), runif(1000))
EDR(rates)
# }
Run the code above in your browser using DataLab