参数不能作为逻辑值来用

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

写了一段代码，运行后显示  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)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Error err MIT Error

。。。你的参数输入是na.oimt,调用的时候用了na.omit,变成一个R自带的函数了

JEthan77 发表于 2016-3-3 16:25
。。。你的参数输入是na.oimt,调用的时候用了na.omit,变成一个R自带的函数了

这个怎么改呢？意思是判断x是否有缺省值，如果有，创建一个含x 中非缺省且次序不变的元素的对象y，初学者，也是在书上抄下来的代码，谢谢

Bingo_yue 发表于 2016-3-3 16:40
这个怎么改呢？意思是判断x是否有缺省值，如果有，创建一个含x 中非缺省且次序不变的元素的对象y，初学者 ...

其实na.omit函数已经可以完成你说的要求了，不过你改的话也可以if(any(is.na(a)==T),输入参数只需要x,其他不变。