Создание моделей для каждой группы в столбце данных в R

Question

Я хотел бы создать модель naiveBayes для каждой группы значений столбца TN.Вот код:

library(party)
airq <- subset(airquality, !is.na(Ozone))
ct <- ctree(Ozone ~ ., data = airq,  controls = ctree_control(maxsurrogate = 3))
airq$TN<-factor (ct@where)

Вот пример:

> tail (airq)
    Ozone Solar.R Wind Temp Month Day TN
1     7      49 10.3   69     9  24   2
2    14      20 16.6   63     9  25   5
3    30     193  6.9   70     9  26   3
4    14     191 14.3   75     9  28   2
5    18     131  8.0   76     9  29   5
6    20     223 11.5   68     9  30   3

Я хочу построить NaiveBayes модель для значения:

model[i] <- naiveBayes(Ozone ~ ., data = dat[i])

dat[1] будет содержать строки 1 и 4 (TN=2) для создания первой модели, dat[2] содержит строки 2 и 5 для (TN=5) для второй модели, dat[3] содержит строки 3 и для третьей модели (* 1017)*).Итак, наконец, я смогу подвести итог: для каждой уникальной группы значений в TN у меня будет своя модель.Как это:

    TN_val  model     Based on Source_Lines
1     2     model[1]   1,4
2     5     model[2]   2,5
3     3     model[3]   3,6