R/max.abs.R

In BowenNCSU/pathview: a tool set for pathway based data integration and visualization

Defines functions max.abs

Documented in max.abs

max.abs <-
function(x, na.rm=TRUE){
  if(na.rm) x=x[!is.na(x)]
  midx=which.max(abs(x))
  x[midx]
}