R `dlply` обработка ошибок при сбое модели

Я выполняю несколько моделей по подгруппам, используя dlply

library(dplyr)
library(geepack)

data("mtcars")

mtcars <- mtcars[,c("mpg", "cyl", "hp")]

models = plyr::dlply(mtcars, "cyl", function(df) lm(mpg ~ hp,data=df))
lapply(models, summary)

Существует сценарий, когда некоторые модели не сходятся в результате отказа. Чтобы подчеркнуть свою точку зрения, я модифицирую приведенный выше код так, чтобы он преднамеренно не работал.

mtcars_test <- mtcars[,c("mpg", "cyl", "hp")]

mtcars_test <- mtcars_test %>% mutate(mpg = replace(mpg, which(cyl == 6 & mpg < 20), "9as34"))

models = plyr::dlply(mtcars_test, "cyl", function(df) geeglm(mpg ~ hp,data=df))
lapply(models, summary)

Как я могу заставить dlply хранить сообщение «Не удалось совместить» вместо того, чтобы сбой на полпути?

Ожидая таких результатов.

 > models
$`4`

Call:
lm(formula = mpg ~ hp, data = df)

Coefficients:
(Intercept)           hp  
    35.9830      -0.1128  


$`6`

"Failed to converge"


$`8`

Call:
lm(formula = mpg ~ hp, data = df)

Coefficients:
(Intercept)           hp  
   18.08007     -0.01424  

Здесь при условии, что модель не может сходиться на подмножестве, цилиндр = 6 Спасибо ?

Формы c голосовым вводом в React с помощью Speechly
Формы c голосовым вводом в React с помощью Speechly
Пытались ли вы когда-нибудь заполнить веб-форму в области электронной коммерции, которая требует много кликов и выбора? Вас попросят заполнить дату,...
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Будучи разработчиком веб-приложений, легко впасть в заблуждение, считая, что приложение без JavaScript не имеет права на жизнь. Нам становится удобно...
Flatpickr: простой модуль календаря для вашего приложения на React
Flatpickr: простой модуль календаря для вашего приложения на React
Если вы ищете пакет для быстрой интеграции календаря с выбором даты в ваше приложения, то библиотека Flatpickr отлично справится с этой задачей....
В чем разница между Promise и Observable?
В чем разница между Promise и Observable?
Разберитесь в этом вопросе, и вы значительно повысите уровень своей компетенции.
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Клиент для URL-адресов, cURL, позволяет взаимодействовать с множеством различных серверов по множеству различных протоколов с синтаксисом URL.
Четыре эффективных способа центрирования блочных элементов в CSS
Четыре эффективных способа центрирования блочных элементов в CSS
У каждого из нас бывали случаи, когда нам нужно отцентрировать блочный элемент, но мы не знаем, как это сделать. Даже если мы реализуем какой-то...
1
0
11
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Мы можем использовать tryCatch

models <- plyr::dlply(mtcars_test, "cyl", function(df) 
   tryCatch(geeglm(mpg ~ hp,data=df), error = function(e) "Failed to converge"))

Другие вопросы по теме