Я пытался решить проблему, которая у меня возникла, с несколькими имеющимися у меня списками.
Я пытаюсь создать собственную функцию перекрестной проверки для домашнего задания.Сейчас я нахожусь в точке, где я сгенерировал два списка: список элементов класса lm и список повторных выборок из моих исходных данных.
Я создал 5 обучающих и 5 тестовых повторных выборок, используяФункция crossv_kfold () пакета modelr, называемая cvtest
cvtest<-crossv_kfold(MyDataSet,5)
Я создал список из 5 линейных моделей, используя обучающие наборы из cvtest, используя lapply
linModFunc<-function(data,form){
lm(form,data)
}
lmodtest<-lapply(cvtest$train,linModFunc,form=formula)
, сейчас я пытаюсьчтобы вычислить RSME каждой линейной модели в сочетании с ее обучающим набором.
Я пытался найти способ манипулировать lapply или sapply, чтобы получить элемент 1 cvtest, элемент 1 lmodtest, применить функцию rmseи продолжайте вниз по обоим спискам.
В основном я хотел бы получить результат этого:
rmse(lmodtest,cvtest)
, но кое-что, что действительно работает.Есть ли хороший способ сделать это?Я думаю, что мог бы сделать это с помощью цикла for, но я надеялся найти более элегантное решение.