当前位置: 首页>>代码示例 >>用法及示例精选 >>正文


R warnErrList 从列表中收集并总结错误


R语言 warnErrList 位于 utils 包(package)。

说明

将错误(类 "error" ,通常来自 tryCatch )从列表 x 收集到 “summary warning” 中,默认情况下生成 warning 并将该消息保留为 "warningMsg" 属性。

用法

warnErrList(x, warn = TRUE, errValue = NULL)

参数

x

list ,通常来自将模型应用于数据(子)集列表,例如使用 tryCatch(*, error = identity)

warn

逻辑指示是否应调用warning()

errValue

应替换错误的值。

x 参数具有相同长度和名称的 list,其中错误组件默认替换为 errValueNULL,并在 "warningMsg" 属性中进行汇总。

例子

## Regression for each Chick:
ChWtgrps <- split(ChickWeight, ChickWeight[,"Chick"])
sapply(ChWtgrps, nrow)# typically 12 obs.
nlis1 <- lapply(ChWtgrps, function(DAT) tryCatch(error = identity,
                      lm(weight ~ (Time + I(Time^2)) * Diet, data = DAT)))
nl1 <- warnErrList(nlis1) #-> warning :
## 50 times the same error (as Diet has only one level in each group)
stopifnot(sapply(nl1, is.null)) ## all errors --> all replaced by NULL
nlis2 <- lapply(ChWtgrps, function(DAT) tryCatch(error = identity,
                      lm(weight ~ Time + I(Time^2), data = DAT)))
nl2 <- warnErrList(nlis2)
stopifnot(identical(nl2, nlis2)) # because there was *no* error at all
nlis3 <- lapply(ChWtgrps, function(DAT) tryCatch(error = identity,
                      lm(weight ~ poly(Time, 3), data = DAT)))
nl3 <- warnErrList(nlis3) # 1 error caught:
stopifnot(inherits(nlis3[[1]], "error")
        , identical(nl3[-1], nlis3[-1])
        , is.null(nl3[[1]])
)

## With different error messages
if(requireNamespace("nlme")) { # almost always, as it is recommended
 data(Soybean, package="nlme")
 attr(Soybean, "formula") #-> weight ~ Time | Plot  => split by "Plot":
 L <- lapply(split(Soybean, Soybean[,"Plot"]),
             function(DD) tryCatch(error = identity,
                 nls(weight ~ SSlogis(Time, Asym, xmid, scal), data = DD)))
 Lw <- warnErrList(L)
} # if <nlme>

也可以看看

warnErrList() 实用程序已在推荐包 nlme 中的lmList()nlsList() 中永久使用。

相关用法


注:本文由纯净天空筛选整理自R-devel大神的英文原创作品 Collect and Summarize Errors From List。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。