R/ordered_values.R

In ManyTests: Multiple Testing Procedures of Cox (2011) and Wong and Cox (2007)

Defines functions ordered_values

Documented in ordered_values

ordered_values <-
function(n) {

	sums <- function(m) {
		s <- 0
		for (i in 0:(m-1)) {
			s <- s + (1/(n - i))
			}
		s
		}

	ordered_values <- rep(NA, n)
	for (j in 1:n) {
		ordered_values[j] <- sums(j)
		}
	return(ordered_values)
	}

Try the ManyTests package in your browser