2015 年の毎月の組織の雇用ニーズを決定する予測因果モデルを Azure ML スタジオで作成しました。これは因果モデルであるため、2015 年のすべてのパラメーターを個別に予測し、モデルに提供します。
そのような要因の 1 つは、過去 9 か月の雇用値です。これは、2015 年 1 月の雇用価値を予測する場合、過去 9 か月間の雇用価値 (2014 年 12 月から 4 月) が考慮されることを意味します。
以下は私のパラメータセットです：
Year Month Factor A Factor B Factor C Factor D Prev. Month-1 Prev. Month-2 Prev. Month-3 Prev. Month-4 Prev. Month-5 Prev. Month-6 Prev. Month-7 Prev. Month-8 Prev. Month-9
サンプル入力:
Year Month Factor A Factor B Factor C Factor D Prev. Month-1 Prev. Month-2 Prev. Month-3 Prev. Month-4 Prev. Month-5 Prev. Month-6 Prev. Month-7 Prev. Month-8 Prev. Month-9
2015 1 2 4 6 8 10 11 12 13 14 15 16 17 18
モデルを実行すると、予測された雇用 (スコア ラベル) が出力として得られます。
Year Month Factor A Factor B Factor C Factor D Prev. Month-1 Prev. Month-2 Prev. Month-3 Prev. Month-4 Prev. Month-5 Prev. Month-6 Prev. Month-7 Prev. Month-8 Prev. Month-9 Score Labels
2015 1 2 4 6 8 10 11 12 13 14 15 16 17 18 19
2015 年 2 月の予測では、1 月の予測値は Prev になります。月 1 の値。
Year Month Factor A Factor B Factor C Factor D Prev. Month-1 Prev. Month-2 Prev. Month-3 Prev. Month-4 Prev. Month-5 Prev. Month-6 Prev. Month-7 Prev. Month-8 Prev. Month-9
2015 1 2 4 6 8 10 11 12 13 14 15 16 17 18
2015 2 3 5 7 9 19 10 11 12 13 14 15 16 17
これを 12 回 (各月に 1 回) 繰り返さなければならないので、少し面倒です。Rスクリプトを使用して解決する方法を誰かが提案できますか? これまでに書いたものは次のとおりです。
dataset <- maml.mapInputPort(1)
previous <- 9
orig_names <- names(dataset)
n_rows <- dim(dataset)[1]
base <- 9
for (i in 1:previous) {
dataset[(i+1):n_rows,base+i] <- dataset[1:(n_rows-i),base]
dataset[1:i,base+i] <- dataset[1:i,base+i-1]
}
a <- -1:-previous
new_names <- paste("Prev. Month",a)
names(dataset) <- c(orig_names,new_names)
maml.mapOutputPort("dataset")
ありがとう。
更新 1
Azure のループでモデルを実行することができました。反復ごとに、入力パラメーターを提供する必要があります (2 月の場合など)。
「スコアラベル」の下で予測を取得し、それを「前の月-1」の下のパラメーターとして次の月のRの入力に追加する方法について、誰かが私を助けてくれますか?