Предположим, у меня есть список из 1500000 штатов с заданными почтовыми индексами, и я хочу запустить свою модель предиктора (базы данных) в этом списке и получить прогнозы площади. Я сделал то же самое с помощью одного джентльмена, и вот мой code:
pred <- sapply(1:nrow(first), function(row) { predict(basdata,first[row, ],estimator="BMA", interval = "predict", se.fit=TRUE)$Ybma })
- basdata: My Model
- first: Мой новый набор данных, для которого я прогнозирую площадь.
Теперь проблема, с которой я столкнулся, заключается в том, что коду требуется много времени, чтобы предсказать значения. Он перебирает каждую строку и вычисляет площадь. В моем наборе данных 150000 строк, и я хотел бы попросить кого-нибудь помочь мне оптимизировать производительность этого кода.