joethorley · January 4, 2017 23:29
diff --git a/normalize.R b/normalize.R
 normalize <- function(x) {
  if (min(x) > 0) {
    if (max(x) < 1) {
      x <- logit(x)
    } else
      x <- log(x)
  }
  x
 }

 logit <- function(x) {
  log(x / (1 - x))
 }
	normalize <- function(x) {
	if (min(x) > 0) {
	if (max(x) < 1) {
	x <- logit(x)
	} else
	x <- log(x)
	}
	x
	}

	logit <- function(x) {
	log(x / (1 - x))
	}