R/medianNorm.R

Defines functions medianNorm

Documented in medianNorm

medianNorm <-
function(mat) {

med = apply(mat, 2, FUN = function(v){median(na.omit(v))})
mat.norm = sweep(mat, 2, med/max(med), FUN="/")
mat.norm

}

Try the SwathXtend package in your browser

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

SwathXtend documentation built on Nov. 8, 2020, 6:42 p.m.