R/ordered_values.R

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

Any scripts or data that you put into this service are public.

ManyTests documentation built on May 1, 2019, 10:16 p.m.