我正在使用各種模型(如Arima,H2O.Randomforest,glmnet,lm和其他一些模型)對R中的多元時間序列數據進行預測建模。R中的模型評分和排名
我創建了一個函數來選擇我們選擇的模型並進行預測。
Model1 <- function(){
..
return()
}
Model2 <- function(){
...
return()
}
Model3 <- function(){
...
return()
}
main <- function(n){
if(n == 1) {
Model1()
}
else if(n == 2){
Model2()
}
else if(n == 3){
Model3()
}}
現在我認爲這些模型,其通過尋找預測和觀察值之間準確性給出RMSE
和MAPE
自動化。我希望根據表現提供每個分數(例如5分)。例如,如果Arima
比其他模型給出較低的RMSE
,則它將被評分爲高,並且第二低的RMSE
模型將得分小於Arima
等等。
而且每次我用不同的輸入數據運行這些模型時,它都必須給出模型的平均分數。我的意思是說,
1. for model1 it will give scores of each model, let's say *s1*.
2. for model2 run it give scores of each model, and let's call it *s2*.
而且我希望每次運行它與不同的輸入時,該模型的平均分數。這更像是得分和排名方法。
R中是否有任何方法或軟件包可以讓我們瞭解它是如何完成的?或任何例子?任何建議都會非常有幫助。我在Cross驗證中甚至分享了我的問題here。
謝謝。
只是爲了澄清:對於'j'電機'motor1,motor2,... motorj'的'm'時間序列,您有一些數據幀/矩陣與'n'觀察值?你想自動執行以下任務:1)將多個模型擬合到'motor1,motor2,... motorj'的數據中2)用RMSE/MAPE的擬合度對模型進行排序,3)用模型返回'j'列表「j」輸入電機的排名? – Numb3rs
是的。我可以使用'rank()'來排列方法。但我想根據其RMSE/MAPE值給每個模型(如5分)給分,比如記分卡。 – dhinar