尝试使用 函数来捕捉异常并输出更详细的错误信息。tryCatch

`tryCatch` 函数是一个强大的异常处理机制，可以在代码执行过程中捕获并处理异常，同时还可以自定义异常处理程序来输出更详细的错误信息。

以下是一个示例代码：

tryCatch({
  es_hist <- mean(returns_clean[returns_clean <= var_hist, drop = FALSE])
}, error = function(e) {
  message("An error occurred: ", e$message)
  es_hist <- NA
})

在这个代码中，`tryCatch` 函数包裹了计算 `es_hist` 的代码。如果计算过程中发生了异常，就会执行 `error` 参数指定的异常处理程序。这里的异常处理程序会输出错误信息，并将 `es_hist` 赋值为 `NA`，表示计算失败。

你可以将这个代码嵌入到你的程序中，以便在出现异常时输出更详细的错误信息。