R/mednorm.R

mednorm <-
function(mat){
  cmeds <- apply(mat,2,median)
  medmed <- median(cmeds)
  appnorm <- function(x){
    return(medmed*x/cmeds)
  }
  norm.mat <- t(apply(mat,1,appnorm))
  return(norm.mat)
}
lunge111/intSEQ documentation built on May 20, 2019, 9:38 a.m.