The False Discovery Rate 1

Sign in to test your solution.
fund.pvalues <- rep(0, 2000) for (i in 1:2000) fund.pvalues[i] <- t.test(Fund[, i], mu = 0)$p.value q.values.BH <- p.adjust(fund.pvalues, method = "BH") rejections <-
You can submit as many times as you like. Only your latest submission will be taken into account.
Sign in to test your solution.