Nothing
#' Median normalization of 2D matrix by row or by colomn
#'
#' This function normalizes the 2WR matrix (or any 2D matrix) according to the
#' species (rows) or to the genes (columns), by dividing each row or each column by its median.
#'
#' @param mat A matrix
#' @param what Character string indicating whether the matrix should be
#' normalized and how. If what="none", the matrix is not normalized (the
#' default), if what="species", the matrix is normalized so that the difference
#' between species is increased, and if what="genes", the matrix is normalized
#' so that the difference between genes is increased. Normalization consists
#' in dividing either each row or each columns by its median.
#' @return A normalized matrix
#' @examples
#' # random matrix
#' x<-matrix(rnorm(270), nrow=9, ncol=14)
#'
#' # normalize by row
#' x1<-normalize(x, "genes")
#'
#' # normalize by column
#' x2<-normalize(x, "species")
#'
#'
#'
#' @export
normalize <- function(mat, what = "none") {
if (what == "species") mat <- apply(mat, 2, function(x) {x / median(x)})
else if (what == "genes") mat <- t(apply(mat, 1, function(x) {x / median(x)}))
else if (what == "none") {
mat <- mat
#cat("The matric is unchanged.\n")
} else print ("WARNING! Error in the kind of scaling you want! No scaling applied.")
return(mat)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.