r - 如何强制函数传递某个对象(例如值)，而不是失败并传递错误消息

Question

有没有一种方法可以强制该函数传递一个值(例如0)，而不是失败并向屏幕传递错误消息？
问的原因是我试图在表的聚合(统计信息)中包含lme函数(nlme)，但是在某些情况下lme函数会发送错误消息，并且聚合调用失败。
错误消息的示例以及导致错误的情况。

ID= c("3", "15", "24", "25", "26", "28", "29", "30")
    value= c(0, 0, 0, 0, 0, 0, 0, 0)
    fit = lme(value ~ 1, random = ~ 1 | ID)
    Error in chol.default((value + t(value))/2) : 
      the leading minor of order 1 is not positive definite

谢谢!

Answer 1

?try和/或?tryCatch是您的 friend (他们甚至可以在同一页面上记录)。

我通常用这样的成语

ncoefs <- 5
fit <- lme(...)
if (inherits(fit,"try-error")) rep(NA,ncoefs) else fixef(fit)

( inherits()比 if class()==...更通用，因为 class()可以返回长度大于1的字符 vector 。)