我编写了一个这样的函数，主要目的是做除法：
division_func <- function(x,y) {
if ( !is.na(x)  && !is.na(y) ) {
       z <- x/y
    } else {
          z =0
             }
return(z)
}
有一个data数据 集，包含 a,b两列，现要用a列数据除以b列数据得到一个新列，但下面的操作报错
data2 <- with(data, sapply( c(a, b), division_func(a, b),USE.NAME = F))  
此时，报错 显示：
Error in match.fun(FUN) :
  'division_func(a, b)'不是函数，也不是字符，也不是符號

但是，当我单独调用函数dividion_func(3,2)是可用的呀，这是为什么呢？
我应该怎么在数据框中调用这个函数呢？