R/max.abs.R

max.abs <-
function(x, na.rm=TRUE){
  if(na.rm) x=x[!is.na(x)]
  midx=which.max(abs(x))
  x[midx]
}
mmoisse/pathview documentation built on May 9, 2019, 5:53 a.m.