将函数应用于R

Question

我希望将函数应用于数据帧的所有列。这是我的功能，

sma_fn <- function(x,n)
{
  library(TTR)
  y1 = na.omit(x)
  y2 = SMA(y1,n)
  return(y2)
}

现在我想将此函数用于数据帧的所有列。

df <- sapply(na.df, sma_fn(n=50))
Error in na.omit(x) : argument "x" is missing, with no default 

但我不知道如何给x变量。我希望x变量将每列作为值。 谢谢