R/div.R

div <- function(a,b){
  x <- a/b
  x[is.nan(a/b)|is.infinite(a/b)] <- 0
  return(x)
}
LuXiaoEei/yangtiao documentation built on May 13, 2019, 5:33 p.m.