skewness <- function(x, ...){
if(!is.numeric(x))
stop("x is not numeric")
mean((x-mean(x,...)),...)/(var(x,...))^2
}
x <- rnorm(100)
x[3] <- NA
skewness(x,na.rm=T)
[1] NA
我无法得到我想要的答案。那么如何正确使用省略号。特别是当涉及到我想要使用的多个省略号时。
答案 0 :(得分:1)
你错过了一个省略号,我认为有一对多()。
skewness <- function(x, ...){
if(!is.numeric(x))
stop("x is not numeric")
mean(x - mean(x, ...), ...) / (var(x, ...))^2
}