R - Установка модели для каждого объекта с использованием data.table или dplyr

Question

У меня есть набор наблюдений для многих предметов, и я хотел бы подгонять модель для каждого предмета. .

я "использую пакеты data.table и fitdistrplus, но может также попытаться использовать dlpyr

Say мои данные этой формы:

#subject_id #observation 
1   35 
1   38 
2   44 
2   49 

Вот что я пытался до сих пор:

subject_models <- dt[,fitdist(observation, "norm", method = "mme"), by=subject_id] 

Это приводит к ошибке, я думаю, потому что вызов fitdist возвращает fitdist о bject, который невозможно сохранить в datatable/dataframe.

Есть ли интуитивный способ сделать это, используя data.table или dplyr?

EDIT: Ответ на dplyr был предоставлен, но я также благодарен за таблицу data.table, я попытаюсь выполнить некоторые тесты против двух.

Answer 1

Это может быть легко достигнуто с помощью purrr пакета

я принимаю его то же самое @alistaire предложил

library(purrr) 
library(dplyr) 
library(fitdistrplus) 
dt %>% split(dt$subject_id) %>% map(~ fitdist(.$observation, "norm", method = "mme")) 

В качестве альтернативы, без purrr,

dt %>% split(dt$subject_id) %>% lapply(., function(x) fitdist(x$observation, "norm", method = "mme"))