使用tryCatch避免双循环出错

Question

我必须编写一个双循环来检查“i”和“j”的正确参数，所以我想我可以使用 tryCatch() 在满足不适合分布的参数时保持程序运行。

我写了以下代码：

tryCatch({
for (i in -2:2) {
  for (j in 0:6) {
    parms<-JohnsonFit(c(0, 1, i, j), moment="use")
    sJohnson(parms)
    datos <- rJohnson(1000, parms)
    plot(density(datos))
    }
  }
})

但我收到此错误：

JohnsonFit(c(0, 1, i, j), moment = "use") 中的错误： 力矩比误差

有什么想法吗？预先感谢。

Answer 1

尝试：

for (i in -2:2) {
  for (j in 0:6) {
    try({
      parms <- JohnsonFit(c(0, 1, i, j), moment="use")
      sJohnson(parms)
      datos <- rJohnson(1000, parms)
      plot(density(datos))
    })
  }
}