写了一段代码，运行后显示  Error in if (na.omit) x <- x[!is.na(x)] : 参数不能作为逻辑值来用
请问这是什么问题，大家帮忙看看，谢谢

mystats <- function(x,na.oimt=FALSE){
            if(na.omit)
               x <- x[!is.na(x)]
            m <- mean(x)
            n <- length(x)
            s <- sd(x)
            skew <- sum((x-m)^3/s^3)/n
            kurt <- sum((x-m)^4/s^4)/n-3
            return(c(n=n,mean=m,stdev=s,skew=skew,kurtosis=kurt))            
}
sapply(mtcars[vars],mystats)