Question

我正在尝试在一个新的数据框中总结数据集中一组变量的主要特征。为此，我创建了一个函数（具有所需的措施）以将其用于sapply函数。

一切正常，并创建了新的数据框。问题是当我单击“编织”时，出现以下错误：

“ match.fun（FUN）中的错误：找不到对象'summaryDNI'调用：... eval-> eval-> as.data.frame-> sapply-> match.fun”

您能帮我吗？

我创建了以下函数以在一个灵巧的应用程序中使用它：

summaryDMI <- function(x,r=4) {
  c(
    class=class(x),
    countUnique = sum(count(unique(x))[,2]),
    countNA = sum(is.na(x)),
    countOutl = sum(x < quantile(x,0.25,na.rm=TRUE)-
                      1.5*IQR(x,na.rm=TRUE),na.rm=TRUE)+
      sum(x > quantile(x,0.75,na.rm=TRUE)+
            1.5*IQR(x,na.rm=TRUE),na.rm=TRUE),
    min=round(min(x,na.rm=TRUE),r),
    Quart = round(quantile(x,0.25,na.rm=TRUE),r),
    median = round(median(x,na.rm=TRUE),r),
    mean=round(mean(x,na.rm=TRUE),r),
    Quart = round(quantile(x,0.75,na.rm=TRUE),r),
    max=round(max(x,na.rm=TRUE),r)
    )

  }

然后我在以下函数中使用了它：

summary_train <- as.data.frame(sapply(train, FUN=summaryDMI))

预期结果：编织代码而没有任何错误实际结果：“” match.fun（FUN）中的错误：找不到对象'summaryDNI'调用：... eval-> eval-> as.data.frame-> sapply-> match.fun”

如何修复“ match.fun（FUN）中的错误：找不到对象x

0 个答案: